Delphi FireMonkey应用程序中的TFileOpenDialog

我使用的是FireMonkey，希望用户使用TFileOpenDialog提供的界面选择目录（我发现SelectDirectory界面充其量已经过时-是的，即使使用sdNewUI选项）

首先，在FireMonkey应用程序中包含VCL.Dialogs单元（使用TFileOpenDialog）是否是一种不好的做法

其次，这仍然只能在Windows Vista及以上版本中实现。这是检查兼容Windows版本的正确方法吗

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

---

为便于将来参考，请使用IFileDialog创建Windows Vista及以上文件夹对话框：

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;

---

你的Vista up测试很好。就我个人而言，我不会麻烦使用

TFileOpenDialog

，也不会直接使用

IFileDialog

。。。如果使用fdoPickFolders选项，我将如何做到这一点？IFileDialog是否只是标准TopEndDialog/TSaveDialog的接口，或者我是否遗漏了什么？不，

IFileDialog

是Vista的所有形式的文件对话框。其他一切都是遗产。调用

IFileDialog.SetOptions

passing

FOS\u PICKFOLDERS

。虽然这段代码可以解决这个问题，但如何以及为什么解决这个问题将真正有助于提高您的帖子质量，并可能导致更多的投票。请记住，你是在将来回答读者的问题，而不仅仅是现在提问的人。请在回答中添加解释，并说明适用的限制和假设。

if SelectDirectory('Select a directory', chosenDirectory, chosenDirectory) then