所需单元

 代码如下   uses FileCtrl;

　　示例代码

 代码如下  

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