if not SelectDirectory( '请选择输出文件路径','/',directory) then begin Exit; end;
使用SelectDirectory函数注意要在use下引入FileCtrl。
第一个参数是提示信息，第二个参数是默认路径，第三个参数是你自己选择的路径。
