请问delphi里怎样打开一个对话框返回一个路径、

Question

如标题，偶只找到各OpenFileDialog，好像不行哦

Answer 1

uses FileCtrl;
procedure TForm1.Button1Click(Sender: TObject);
const
   SELDIRHELP = 1000;
var
 dir: String;
begin
 dir := 'C:';
 if SelectDirectory(dir, [sdAllowCreate, sdPerformCreate, sdPrompt],SELDIRHELP) then
   Button1.Caption := dir;
end; 

Answer 2

谢谢1楼的，虽然这样可以达到目的了，不过我想问问，windows的“浏览文件夹”对话框是调用那个api的。谢谢