delphi - FireMonkeyアプリケーションのTFileOpenDialog

Question

私はFireMonkeyを使用しており、TFileOpenDialogによって提供されるインターフェイスを使用してディレクトリを選択するようにユーザーに求めています（SelectDirectoryインターフェイスはせいぜい古くなっています-はい、sdNewUIオプションを使用しても）。

まず、FireMonkeyアプリケーションにVCL.Dialogsユニット（TFileOpenDialogを使用するため）を含めるのは悪い習慣ですか？

第二に、これはまだWindowsVista以降でのみ可能です。これは、互換性のあるWindowsバージョンを確認する正しい方法ですか？

{IFDEF WIN32 or WIN64}
  if Win32MajorVersion >= 6 then
    // Create TOpenFileDialog with fdoPickFolders option

Answer 1

今後の参考のために、IFileDialogを使用してWindowsVista以上のフォルダダイアログを作成します。

uses
  ShlObj, ActiveX;

...

var
  FolderDialog : IFileDialog;
  hr: HRESULT;
  IResult: IShellItem;
  FileName: PChar;
  Settings: DWORD;
begin
  if Win32MajorVersion >= 6 then
    begin
      hr := CoCreateInstance(CLSID_FileOpenDialog,
                   nil,
                   CLSCTX_INPROC_SERVER,
                   IFileDialog,
                   FolderDialog);

      if hr = S_OK then
        begin
          FolderDialog.GetOptions(Settings);
          FolderDialog.SetOptions(Settings or FOS_PICKFOLDERS);
          FolderDialog.GetOptions(Settings);
          FolderDialog.SetOptions(Settings or FOS_FORCEFILESYSTEM);
          FolderDialog.SetOkButtonLabel(PChar('Select'));
          FolderDialog.SetTitle(PChar('Select a Directory'));

          hr := FolderDialog.Show(Handle);
          if hr = S_OK then
            begin
              hr := FolderDialog.GetResult(IResult);

              if hr = S_OK then
                begin
                  IResult.GetDisplayName(SIGDN_FILESYSPATH,FileName);
                  ConfigPathEdit.Text := FileName;
                end;
            end;
        end;
    end;
end;