我正在我的win32应用程序中“嵌入windows资源管理器”。（从技术上讲，我在我的应用程序中托管一个ShellView文件夹，这就是windows资源管理器所做的）。
问题是视图从未调用IShellBrowser.BrowseObject。shell视图没有要求我导航到新的位置（通过browseobject事件），而是启动一个windows资源管理器副本来查看文件夹。
我希望默认的shell视图（俗称defview）是可浏览的。
示例代码教程
首先，我们需要为我要显示的某个文件夹获取IShellFolder。最简单的文件夹是桌面文件夹，因为它有一个SHGetDesktopFolder API文件夹：
folder: IShellFolder;
SHGetDesktopFolder({out} folder);
接下来，我们要求桌面文件夹hand将其IShellView：
view: IShellView;
folder.CreateViewObject(Self.Handle, IID_IShellView, {out}view);
现在我们有了文件夹的ishellview（与icontextmenu或iextractcon相反），现在要通过调用IShellView.CreateViewWindow来显示shell视图：
hostRect: TRect; //where the view is to display itself
folderSettings: TFolderSettings; //display settings for the view
hwndView: HWND; //the newly created view's window handle
folderSettings.ViewMode := FVM_DETAILS; //details mode please, rather than icon/list/etc
folderSettings.fFlags := 0;
hostRect := Rect(20, 20, 660, 500); //the view can position itself there
view.CreateViewWindow(nil, folderSettings, shellBrowser, {var}hostRect, {out}hView);
view.UIActivate(SVUIA_ACTIVATE_NOFOCUS);
et voila，可识别的shell列表视图，显示我的桌面：
完成上下文菜单处理程序：
除了单击“打开”时，它会打开一个新窗口，而不是通过我提供的
BrowseObject界面向我发送IShellBrowser事件：当我双击时也会发生同样的情况。
如何使Microsoft的DefView可浏览？
更新ShellBrowser实现
创建
IShellView时，必须给它一个实现IShellBrowser的对象。这个ShellBrowser对象是视图如何与宿主容器通信的。在这15种方法中，我只仔细地看了4种，其余的可以返回
E_NOTIMPL（当然这可能是问题所在）：{IShellBrowser}
BrowseObject(PCUIDLIST_RELATIVE pidl, UINT wFlags);//Informs Windows Explorer to browse to another folder.
//This is the notification i want!
Result := BrowseToAnotherFolder(pidl, wFlags);
GetControlWindow(UINT id, HWND *lphwnd);//Gets the window handle to a browser control.
//Since i don't have a toolbar, tree, status or progress windows, return 0
lphwnd := 0;
Result := S_OK;
SendControlMsg(UINT id, UINT uMsg, WPARAM wParam, LPARAM lParam, LRESULT *pret);//Sends control messages to either the toolbar or the status bar in a Windows
//From MSDN: Notes to Implementers
// If your Windows Explorer does not have these controls, you can return E_NOTIMPL.
Result := E_NOTIMPL;
GetViewStateStream(DWORD grfMode, IStream **ppStrm);//Gets an IStream interface that can be used for storage of view-specific state information.
Result := E_NOTIMPL; //i'm don't have a stream to give you
TranslateAcceleratorSB(LPMSG lpmsg, WORD wID);//Translates accelerator keystrokes intended for the browser's frame
// while the view is active.
Result := E_NOTIMPL; //i won't be doing any translating
OnViewWindowActive(IShellView *ppshv);//Called by the Shell view when the view window or one of its child
// windows gets the focus or becomes active.
Result := S_OK; //i got the notification, thanks
QueryActiveShellView(IShellView **ppshv);//Retrieves the currently active (displayed) Shell view object.
ppshv := view;
Result := S_OK; //i would never view another, you know that
EnableModelessSB(BOOL fEnable);//Tells Windows Explorer to enable or disable its modeless dialog boxes.
Result := S_OK; //You want to enable modeless dialog boxes? Interesting.
InsertMenusSB(HMENU hmenuShared, LPOLEMENUGROUPWIDTHS lpMenuWidths);//Allows the container to insert its menu groups into the composite
// menu that is displayed when an extended namespace is being viewed or used.
Result := E_NOTIMPL; //i no has menus
RemoveMenusSB(HMENU hmenuShared);//Permits the container to remove any of its menu elements
// from the in-place composite menu and to free all associated resources.
Result := E_NOTIMPL; //i no has menus
SetMenuSB(HMENU hmenuShared, HOLEMENU holemenuRes, HWND hwndActiveObject);//Installs the composite menu in the view window.
Result := E_NOTIMPL; //i no has menus
SetStatusTextSB//Sets and displays status text about the in-place object
//in the container's frame-window status bar.
Result := E_NOTIMPL; //i no has status bar
SetToolbarItems(LPTBBUTTONSB lpButtons, UINT nButtons, UINT uFlags);//Adds toolbar items to Windows Explorer's toolbar.
Result := E_NOTIMPL; //i no has toolbar
然后是祖先：
IOleWindow//Retrieves a handle to one of the windows participating in
// in-place activation (frame, document, parent, or in-place object window).
phwnd := Self.Handle; //here's the handle, again, of your parent
Result := S_OK;
`上下文敏感帮助（[in]bool fentermode）；
//Determines whether context-sensitive help mode should be entered
//during an in-place activation session.
Result := S_OK; //Ok, thanks, i'll make a note of it
IServiceProvider公司
function TShellBrowser.QueryService(const rsid, iid: TGuid; out Obj): HResult;
var
sb: IShellBrowser;
s: string;
const
SID_SInPlaceBrowser: TGUID = '{1D2AE02B-3655-46CC-B63A-285988153BCA}';
SID_IShellBrowser: TGUID = '{000214E2-0000-0000-C000-000000000046}';
begin
{
This code is executed when you double click a folder.
It's needed to implement inline browsing.
If you double click a folder the default action of IShellBrowser is to open a new Windows Explorer.
To open the folder in the current window you must implement IServiceProvider.
http://blogs.msdn.com/b/ieinternals/archive/2009/12/30/windows-7-web-browser-control-will-not-browse-file-system.aspx
}
Result := E_NOINTERFACE; //Return $E_NOINTERFACE
OutputDebugString(PChar('TShellBrowser.QueryService: '+IIDToString(rsid)));
{
Make a small change to your application to enable the filesystem object to navigate in-place within the WebOC
when running on Windows 7.
To do so, your hosting application will implement the IServiceProvider interface,
and hand back the WebBrowser control’s SID_SShellBrowser when asked for SID_SInPlaceBrowser
}
if IsEqualGUID(rsid, SID_SInPlaceBrowser) then
begin
sb := Self as IShellBrowser;
Pointer(Obj) := Pointer(sb);
sb._AddRef;
Result := S_OK;
end;
end;
额外阅读
GetWindow([out] HWND *phwnd);（除非不起作用）ex-MSFT Eric Law documents this behavior as an instantional change in Windows 7, and how to work around it
fogbit having the same problem
另见
more talk on how to implement IServiceProvider to respond to SID_SInPlaceBrowser
最佳答案
在vista或更高版本上，您可以切换到宿主explorerbrowser，从中可以qi iobjectwithsite并传递一个对象，该对象使用sid_sshellbrowser或sid_sinplacebrowser等服务实现iserviceprovier。
在xp上，您可能需要处理来自进程的dde消息，因为默认的文件夹关联是当时的dde。