所需單元

　　示例代碼

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