if (!SelectDirectory("请选择目录","",DaoPath))
{
return;
}

#include "FileCtrl.hpp"
 
const SELDIRHELP = 1000;
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  String Dir = "C:\\Program Files\\CodeGear";
  if (SelectDirectory(Dir, TSelectDirOpts() << sdAllowCreate << sdPerformCreate << sdPrompt,SELDIRHELP))
    Label1->Caption = Dir;
}

procedure TForm.Button4Click(Sender: TObject);
var
  astrPath: tarray<string>; // 用户选定后的目录
begin
  //TSelectDirFileDlgOpt.sdHidePinnedPlaces
  if (SelectDirectory('请选择文件保存的路径', astrPath,  [sdNoDereferenceLinks])) then
  begin
    self.Caption := astrPath[0];
  end;

end;

procedure TForm.Button1Click(Sender: TObject);
const
  SELDIRHELP = 1000;
var
  Dir: string;
begin
  Dir := 'C:\Windows';
  if Vcl.FileCtrl.SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt], SELDIRHELP) then
    self.Caption := Dir;
end;