uses
FileCtrl;
var
szPath: string ;
if SelectDirectory( ' 选个目录看看 ' , '' ,szPath) then
Edit1.Text : = szPath;
var
szPath: string ;
if SelectDirectory( ' 选个目录看看 ' , '' ,szPath) then
Edit1.Text : = szPath;
转载于:https://www.cnblogs.com/Handll/archive/2009/07/27/1531941.html