delphi 弹出选择目录窗口

if not  SelectDirectory( '请选择输出文件路径','/',directory) then
  begin
    Exit;
  end;

使用SelectDirectory函数注意要在use下引入FileCtrl。

第一个参数是提示信息，第二个参数是默认路径，第三个参数是你自己选择的路径。