所需单元
代码如下 | |
uses FileCtrl; |
示例代码
代码如下 | |
procedure TForm1.btn1Click(Sender: TObject); var path:String; begin if SelectDirectory('请选择文件夹','',path) then ShowMessage(path); end; |
时间: 2024-10-29 22:26:53
所需单元
代码如下 | |
uses FileCtrl; |
示例代码
代码如下 | |
procedure TForm1.btn1Click(Sender: TObject); var path:String; begin if SelectDirectory('请选择文件夹','',path) then ShowMessage(path); end; |