Проблема с потерей фокуса окна в Delphi 6 при использовании динамической загрузки функций выбора директории из Delphi 2009

Delphi , Файловая система , Директории

Разработчики, сталкивающиеся с необходимостью поддержки и обновления старых проектов на Delphi, часто сталкиваются с ограничениями, наложенными версией компилятора. В данном случае, рассматривается проблема, связанная с использованием функции выбора директорий из библиотеки Delphi 2009 в проекте на Delphi 6. При вызове этой функции из динамически загружаемой библиотеки (DLL), происходит потеря фокуса текущего приложения, и другое окно (часто это Проводник Windows) становится активным.

Пример кода функции из Delphi 2009:

function _SelectDirectory(ADirPath: ShortString): ShortString;
var
  OpenDlg: TFileOpenDialog;
begin
  Result := '';
  OpenDlg := TFileOpenDialog.Create(nil);
  try
    OpenDlg.Options := OpenDlg.Options + [fdoPickFolders];
    if DirectoryExists(ADirPath) then
      OpenDlg.DefaultFolder := ADirPath;
    if OpenDlg.Execute then
    begin
      Result := OpenDlg.FileName;
    end;
  finally
    OpenDlg.Free;
  end;
end;

Вызов функции из DLL:

ImpLib := LoadLibrary(LibraryName);
@TmpSelectDirectory := GetProcAddress(ImpLib, '_SelectDirectory');
TmpSelectDirectory(ADirPath);

Проблема:

При динамической загрузке функции из DLL теряется ссылка на текущее приложение, и операционная система может активировать другое окно, например, Проводник Windows, что приводит к нежелательному поведению программы.

Альтернативный ответ:

Вместо использования функций из DLL, рекомендуется напрямую обращаться к интерфейсам COM, таким как IFileOpenDialog. Это потребует перевода соответствующих COM интерфейсов, констант и т.д. для использования в среде Delphi 6. Важно передать параметр hwndOwner, чтобы корректно обработать всплывающие окна.

Подтвержденный ответ:

В Delphi 6 существует функция FileCtrl.SelectDirectory, которая имеет перегруженную версию с параметром Root. Эта версия отображает современный системный диалог, используя функцию Win32 SHBrowseForFolder.

Также, класс TCustomFileDialog имеет метод Execute, который принимает параметр HWND для указания владельца диалога. При вызове этой функции из DLL, необходимо явно передать дескриптор окна текущей формы.

Пример кода с указанием владельца окна:

function _SelectDirectory(Owner: HWND; ADirPath: ShortString): ShortString;
var
  ...
begin
  ...
  if OpenDlg.Execute(Owner) then
  ...
end;

ImpLib := LoadLibrary(LibraryName);
@TmpSelectDirectory := GetProcAddress(ImpLib, '_SelectDirectory');
TmpSelectDirectory(MyForm.Handle, ADirPath);

Используя этот подход, можно сохранить фокус на текущем приложении даже после вызова функции из DLL.

Создано по материалам из источника по ссылке.

Проблема заключается в том, что при динамической загрузке и использовании функции для выбора директории из библиотеки, созданной в Delphi 2009, в проекте на Delphi 6, происходит потеря фокуса на приложении, и активным становится другое окно, часто Провод

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Директории ::