急！！！怎样调出“浏览文件夹”的对话框？(10分)

就好比选择下载文件的存放路径一样，按下一个按钮后，就可以弹出保存路径对话框，
选择一个路径后，自动把此路径如c:/windows/temp 填入一个EDIT里，
请问该怎样做到？谢谢了！

selectdirectory

唉呀，不明白啊，能否具体点？！
谢谢了！！！！

if SelectDirectory(Text,[sdAllowCreate,
sdPerformCreate,sdPrompt], 0) then
被选路径:=Text;

用SaveDialog啊

[red]uses ShlObj;[/red]

procedure TForm1.Button1Click(Sender: TObject);
var
bi: TBrowseInfo;
pidl: pItemIdList;
strpath, displayname: string;
begin
SetLength (displayname, 100);
bi.hwndOwner := Handle;
bi.pidlRoot := nil;
bi.pszDisplayName := pChar (displayname);
bi.lpszTitle := 'Select a folder';
bi.ulFlags := bif_StatusText;
bi.lpfn := nil;
bi.lParam := 0;
pidl := ShBrowseForFolder (bi);
SetLength (strPath, 100);
ShGetPathFromIdList (pidl, PChar(strPath));
Edit1.Text := strPath;
end;

用opendialog就可以了

接受答案了.