FireMonkey 应用程序中的 TFileOpenDialog答案

【问题标题】：TFileOpenDialog in FireMonkey ApplicationFireMonkey 应用程序中的 TFileOpenDialog
【发布时间】：2012-06-12 14:02:22
【问题描述】：

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

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

其次，这仍然仅适用于 Windows Vista 及更高版本。这是检查兼容 Windows 版本的正确方法吗？

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

【问题讨论】：

您的 Vista up 测试很好。就我个人而言，我不会理会TFileOpenDialog，而是直接使用IFileDialog。
Ummm... 我将如何使用 fdoPickFolders 选项执行此操作，IFileDialog 不只是标准 TOpenDialog/TSaveDialog 的接口，还是我遗漏了什么？
不，IFileDialog 是 Vista 的所有形式的文件对话框。其他一切都是遗产。致电IFileDialog.SetOptions 传递FOS_PICKFOLDERS。

标签： delphi delphi-xe2 firemonkey

【解决方案1】：

为了以后参考，使用 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;

【讨论】：

【解决方案2】：

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

【讨论】：

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