delphi选择文件夹例子

作者：袖梨 2022-06-25

所需单元
 

 代码如下 复制代码
uses FileCtrl;

示例代码

 代码如下 复制代码

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

相关文章

精彩推荐