delphi選擇文件夾例子

 　　所需單元

 代碼如下   uses FileCtrl;

　　示例代碼

 代碼如下  

procedure TForm1.btn1Click(Sender: TObject);
var path:String;
begin
       if SelectDirectory('請選擇文件夾','',path) then
       ShowMessage(path);
 
end;