delphi 关闭文件夹 [delphi选择文件夹例子]

所需单元

代码如下 uses FileCtrl;

示例代码

代码如下

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

end;