SelectDirectory实现文件夹的选定(设置位置)

功能说明：//SelectDirectory实现文件夹的选定(设置位置) 
uses FileCtrl;
procedureTForm1.Button1Click(Sender: TObject);
var
    dir:String;
begin
    if SelectDirectory(dir,[],500) then Edit1.text:=Dir;
end;

 

通过 Wiz 发布