在Inno Setup中如何用带FOS_PICKFOLDERS的IFileDialog替代BrowseForFolder？

你可以通过调用Windows原生的IFileDialog COM组件，并设置FOS_PICKFOLDERS标记，实现更现代的文件夹选择对话框，替代体验较差的BrowseForFolder。以下是完整实现代码：

const
  FOS_PICKFOLDERS = $00000020;
  FOS_FORCEFILESYSTEM = $00000040;
  FOS_NOCHANGEDIR = $00000008;
  SIGDN_FILESYSPATH = $80058000;

type
  TFileDialogOptions = DWORD;

  IFileDialog = interface(IUnknown)
    ['{42F85136-DB7E-439C-85F1-E4075D135FC8}']
    function Show(hwndOwner: HWND): HResult; stdcall;
    function SetOptions(fos: TFileDialogOptions): HResult; stdcall;
    function GetOptions(out fos: TFileDialogOptions): HResult; stdcall;
    function SetTitle(const pszTitle: LPCWSTR): HResult; stdcall;
    function GetResult(out psi: IShellItem): HResult; stdcall;
  end;

  IShellItem = interface(IUnknown)
    ['{43826D1E-E718-42EE-BC55-A1E261C37BFE}']
    function GetDisplayName(sigdnName: DWORD; out ppszName: LPWSTR): HResult; stdcall;
  end;

  TFileDialog = class
  private
    FDialog: IFileDialog;
  public
    constructor Create;
    function SelectFolder(hwndOwner: HWND; var FolderPath: string): Boolean;
  end;

constructor TFileDialog.Create;
var
  CLSID_FileOpenDialog: TGUID;
begin
  CLSID_FileOpenDialog := '{DC1C5A9C-E88A-4DDE-A5A1-60F82A20AEF7}';
  if CoCreateInstance(CLSID_FileOpenDialog, nil, CLSCTX_INPROC_SERVER, IFileDialog, FDialog) <> S_OK then
    RaiseException('无法创建IFileDialog实例');
end;

function TFileDialog.SelectFolder(hwndOwner: HWND; var FolderPath: string): Boolean;
var
  Options: TFileDialogOptions;
  ShellItem: IShellItem;
  Path: LPWSTR;
begin
  Result := False;
  if not Assigned(FDialog) then Exit;

  // 配置对话框：仅选文件夹、强制返回文件系统路径、不修改当前目录
  FDialog.GetOptions(Options);
  Options := Options or FOS_PICKFOLDERS or FOS_FORCEFILESYSTEM or FOS_NOCHANGEDIR;
  FDialog.SetOptions(Options);

  // 设置对话框标题
  FDialog.SetTitle('选择目标文件夹');

  // 显示对话框
  if FDialog.Show(hwndOwner) = S_OK then
  begin
    // 获取选中的文件夹项
    if FDialog.GetResult(ShellItem) = S_OK then
    begin
      // 提取文件夹路径
      if ShellItem.GetDisplayName(SIGDN_FILESYSPATH, Path) = S_OK then
      begin
        FolderPath := WideString(Path);
        CoTaskMemFree(Path);
        Result := True;
      end;
      ShellItem := nil;
    end;
  end;
end;

function SelectFolderDialog(var ResultPath: string): Boolean;
var
  FileDialog: TFileDialog;
begin
  Result := False;
  FileDialog := TFileDialog.Create;
  try
    Result := FileDialog.SelectFolder(WizardForm.Handle, ResultPath);
  finally
    FileDialog.Free;
  end;
end;

procedure BrowseButtonClick(Sender: TObject);
var
  FolderPath: string;
begin
  FolderPath := WizardForm.DirEdit.Text;
  if SelectFolderDialog(FolderPath) then
  begin
    WizardForm.DirEdit.Text := FolderPath;
  end;
end;

procedure InitializeWizard();
begin
  // 替换默认的目录浏览按钮点击事件
  WizardForm.DirBrowseButton.OnClick := @BrowseButtonClick;
end;

关键说明 #

• 代码通过COM接口实例化FileOpenDialog，并通过FOS_PICKFOLDERS标记将对话框切换为文件夹选择模式
• FOS_FORCEFILESYSTEM确保返回的路径是真实的文件系统路径，而非虚拟路径
• SelectFolderDialog函数封装了对话框的创建与交互逻辑，调用后返回是否成功选择文件夹，并输出选中路径
• 在InitializeWizard中替换默认的浏览按钮事件，实现无缝替换

注意事项 #

• 该实现仅支持Windows Vista及以上系统（IFileDialog从Vista开始引入），若需兼容XP，需保留原BrowseForFolder作为降级方案
• 若制作64位安装包，需在[Setup]段添加ArchitecturesInstallIn64BitMode=x64，确保COM接口调用正常

内容的提问来源于stack exchange，提问作者Bug Maker