请问怎么样用一个按钮调出windows自己的显示浏览的对话框？(50分)

例如：显示windows“浏览网络”、显示“浏览目录”的对话框，选中后有怎么让他返回到我的窗体里面去？

浏览目录：<br>var<br>&nbsp; bi: TBrowseInfo;<br>&nbsp; pidl: pItemIdList;<br>&nbsp; strpath, displayname: string;<br>begin<br>&nbsp; SetLength (displayname, 100);<br><br>&nbsp; bi.hwndOwner := Handle;<br>&nbsp; bi.pidlRoot := nil;<br>&nbsp; bi.pszDisplayName := pChar (displayname);<br>&nbsp; bi.lpszTitle := '升级文件所在目录选择';<br>&nbsp; bi.ulFlags := $0040 OR BIF_VALIDATE;<br>&nbsp; bi.lpfn := nil;<br>&nbsp; bi.lParam := 0;<br><br>&nbsp; pidl := ShBrowseForFolder (bi);<br><br>&nbsp; SetLength (strPath, 100);<br>&nbsp; ShGetPathFromIdList (pidl, PChar(strPath));<br>&nbsp; FSvrDir := Trim(Copy(strPath,0,Pos(#0,strpath)-1));<br>end;

TBrowseInfo需要调用哪个单元啊

shellobj