所需单元

代码如下:

uses FileCtrl;

示例代码

代码如下:

procedure TForm1.btn1Click(Sender: TObject);

var path:String;

begin

if SelectDirectory('请选择文件夹','',path) then

ShowMessage(path);

end;

更多信息请查看IT技术专栏