delphi选择文件夹|delphi选择文件夹例子

更新时间:2019-05-14    来源:Delphi    手机版     字体:

【www.bbyears.com--Delphi】

所需单元
 

 代码如下 uses FileCtrl;

示例代码

 代码如下

 
procedure TForm1.btn1Click(Sender: TObject);
var path:String;
begin
       if SelectDirectory("请选择文件夹","",path) then
       ShowMessage(path);
 
end;

本文来源:http://www.bbyears.com/wangyezhizuo/51054.html