delphi – FireMonkey应用程序中的TFileOpenDialog

发布时间：2020-12-15 09:13:55 所属栏目：大数据来源：网络整理

导读：我正在使用FireMonkey并希望用户使用TFileOpenDialog提供的接口选择目录(我发现SelectDirectory接口最好过时 – 是的,即使使用sdNewUI选项). 首先,在FireMonkey应用程序中包含VCL.Dialogs单元(使用TFileOpenDialog)是不好的做法吗？其次,这仍然只适用于Wind

我正在使用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;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!