Неоднообразие работы Delphi XE: Проблемы и решения при выборе директории на Windows 10

Delphi , Программа и Интерфейс , Диалоги и Фреймы

При работе с функциями выбора директорий в среде разработки Delphi XE на операционной системе Windows 10 пользователи могут столкнуться с неожиданным поведением. В частности, код, предназначенный для отображения всех доступных дисков и папок, может работать некорректно, показывая только папку рабочего стола на одних машинах и полный список дисков и папок на других.

Описание проблемы

Пользователи столкнулись с тем, что код, использующий компонент FileCtrl и функцию SelectDirectory, возвращает разные результаты на разных компьютерах. На одном из компьютеров отображается только папка рабочего стола, в то время как на другом — также отображаются разделы дисков и подключенные сетевые диски.

Пример кода для выбора директории:

procedure TForm1.Button1Click(Sender: TObject);
var
  Directory: String;
begin
  FileCtrl.SelectDirectory('Caption', 'Desktop', Directory, [sdNewUI, sdShowEdit]);
end;

На одном из компьютеров результат выполнения кода следующий:

На другом — результат иной:

Проблема кажется связанной с настройками Windows, но конкретное решение не ясно.

Подходы к решению

Использование нового диалога выбора файлов

Один из пользователей предложил использовать новый диалог выбора файлов, введенный в Windows Vista, который является более надежным и функциональным. Это решение позволяет избежать проблем, связанных с устаревшим компонентом FileCtrl.

Пример использования TFileOpenDialog:

FileOpenDialog1.Options:= [fdoPickFolders, fdoPathMustExist];
if FileOpenDialog1.Execute then Directory:= FileOpenDialog1.FileName;

Исправление параметра Root

Для корректного отображения корневого пространства рабочего стола необходимо установить параметр Root в пустую строку (''), а не в 'Desktop'. Это связано с тем, что реальное имя папки отличается от отображаемого.

Пример исправленного кода:

FileCtrl.SelectDirectory('Caption', '', Directory, [sdNewUI, sdShowEdit]);

Совместимость с Windows XP

Если необходимо обеспечить совместимость с Windows XP, следует использовать следующий код, который проверяет версию операционной системы и выбирает соответствующий диалог.

uses JclSysInfo; // Для использования в Delphi XE
...
var
  WinMajorVer: Integer;
  Directory: string;
  FileDialog: TFileOpenDialog;
begin
  WinMajorVer:= GetWindowsMajorVersionNumber;
  if WinMajorVer < 6 then begin // Windows XP
    FileCtrl.SelectDirectory('Caption', '', Directory, [sdNewUI, sdShowEdit]);
  end else begin // Vista и выше
    FileDialog:= TFileOpenDialog.Create(self);
    try
      FileDialog.Options:= [fdoPickFolders, fdoPathMustExist];
      if FileDialog.Execute then Directory:= FileOpenDialog1.FileName;
    finally
      FileDialog.Free;
    end;
  end;
  Result:= Directory;
end;

Заключение

При работе с компонентом FileCtrl в Delphi XE для выбора директорий на Windows 10 необходимо учитывать возможные проблемы с отображением дисков и папок. Использование нового диалога TFileOpenDialog и корректное указание параметра Root помогут избежать этих проблем. Для обеспечения совместимости с Windows XP следует использовать условный компиляцию и проверку версии операционной системы.

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

Проблема заключается в некорректной работе компонента `FileCtrl` для выбора директорий в среде Delphi XE на Windows 10, которая может приводить к различным результатам отображения дисков и папок на разных компьютерах.

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

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

:: Главная :: Диалоги и Фреймы ::