“浏览文件夹”对话框(100分)

win2000的资源管理器中，选定一个文件，再从“编辑”菜单中选择“复制到文件夹”<br>会弹出“浏览文件夹”对话框，不同于用SHBrowseForFolder的那个，请问可有API实现<br>此对话框？

没用过，改天查查，你知道了要说一声

这是WINDOWS的基本功能，肯定有的

windows 9x里没有，要使用控件

补充一：<br>见过的一个程序在win2000下显示“新”浏览文件夹对话框，而在98下显示标准的浏览<br>文件夹对话框（SHBrowseForFolder）

补充二：<br>MSDN上对BROWSEINFO的ulFlags的说明<br>（http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/Shell/Structures/BROWSEINFO.asp）<br>其中有BIF_NEWDIALOGSTYLE，Use the new user interface. Setting this flag <br>provides the user with a larger dialog box that can be resized. The dialog <br>box has several new capabilities including: drag and drop capability within <br>the dialog box, reordering, shortcut menus, new folders, delete, and other <br>shortcut menu commands. To use this flag, you must call OleInitialize or <br>CoInitialize before calling SHBrowseForFolder.<br>但Delphi6中的ShlObj.pas中并没有声明这个常量，怎么办呢？<br>

问题解决了，谢谢大家！！ Const BIF_USENEWUI = $0040，参见<br>（http://www.vbapi.com/ref/b/browseinfo.html）,例子如下<br>with BI do<br>&nbsp; &nbsp; begin<br>&nbsp; &nbsp; &nbsp; hwndOwner := Handle;<br>&nbsp; &nbsp; &nbsp; pidlRoot := nil;<br>&nbsp; &nbsp; &nbsp; pszDisplayName := nil;<br>&nbsp; &nbsp; &nbsp; lpszTitle := 'Select a directory';<br>&nbsp; &nbsp; &nbsp; ulFlags := $0040;<br>&nbsp; &nbsp; &nbsp; lpfn := nil;<br>&nbsp; &nbsp; &nbsp; lParam := 0;<br>&nbsp; &nbsp; &nbsp; iImage := 0;<br>&nbsp; &nbsp; end;<br>&nbsp; &nbsp; pIDLst := SHBrowseForFolder(BI);