delphi 弹出选择目录对话框(Microsoft IFileDialog接口对话框)

delphi 弹出选择目录对话框(Microsoft IFileDialog接口对话框)

uses Vcl.FileCtrl;

procedure TForm1.Button3Click(Sender: TObject);
var
  vPath: TArray<string>;
  I: Integer;
begin
  //TPath.GetTempPath
  //dHidePinnedPlaces  导航窗格的默认视图中隐藏项目。
  //sdForceShowHidden  显示隐藏的目录。
  //sdAllowMultiselect 允许你在“选择目录”对话框中选择多个项目
  if SelectDirectory('D:\ceshi', vPath,
    [{sdHidePinnedPlaces,} sdForceShowHidden, sdAllowMultiselect], '弹出的标题', '文件夹标签', '确认按钮标签') then
  begin
    for I := 0 to Length(vPath) - 1 do
      ShowMessage('选择的目录[' + IntToStr(I + 1) + '] ' + vPath[I]);
  end;
end;