if not SelectDirectory( ‘请选择输出文件路径‘,‘/‘,directory) then begin Exit; end;
使用SelectDirectory函数注意要在use下引入FileCtrl。
第一个参数是提示信息，第二个参数是默认路径，第三个参数是你自己选择的路径。
delphi 导出目录
原文：http://www.cnblogs.com/feiyunaima/p/6252381.html
