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