delphi选择文件夹对话框(最简单的一种)

以前写程序时曾用过此方法，但好久没再用都给忘了，今天做个小东东，令我又想到了它，呵呵！copy如下：

uses  FileCtrl;

var
  szPath:  string ;
if  SelectDirectory( ' 选个目录看看 ' , '' ,szPath)  then
Edit1.Text : =  szPath;

转载于:https://www.cnblogs.com/Handll/archive/2009/07/27/1531941.html