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

你可能感兴趣的:(delphi选择文件夹对话框(最简单的一种))