delphi选择文件夹例子

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