delphi选择文件,夹例子

 　　所需单元

　　示例代码

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