delphi 两种选择文件目录对话框

uses Vcl.FileCtrl;

procedure TForm39.Button2Click(Sender: TObject);

var

  D: string;

  Dirs: TArray<string>;

begin

  D := '/';

  if SelectDirectory('/', Dirs) then

    Edit1.Text := Dirs[0];

end;

procedure TForm39.Button3Click(Sender: TObject);

var

  D: string;

  Flags: TSelectDirExtOpts;

begin

  D := '/';

  Flags := [];

  if CheckBox1.Checked then

    Flags := Flags + [sdNewFolder];

  if SelectDirectory('Select Dir', '/', D, Flags) then

    Edit1.Text := D;

end;