windows - 如何让嵌入式资源管理器 IShellView 可浏览(即触发 BrowseObject 事件)

Question

我正在我的 Win32 应用程序中“嵌入 Windows 资源管理器”。 (从技术上讲，我在我的应用程序中托管了一个文件夹的 ShellView，Windows 资源管理器就是这样做的)。

问题是 View 从不调用 IShellBrowser.BrowseObject。外壳 View 不是要求我导航到新位置(通过 BrowseObject 事件)，而是启动 Windows 资源管理器的副本以查看文件夹。

我希望可以浏览默认的 shell View (俗称 DefView)。

---

示例代码教程

首先我们需要得到 IShellFolder对于我想显示的一些文件夹。最简单的文件夹是桌面文件夹，因为有一个 SHGetDesktopFolder API为此:

folder: IShellFolder;

SHGetDesktopFolder({out} folder);

接下来我们要求桌面文件夹为hand我们的IShellView :

view: IShellView;

folder.CreateViewObject(Self.Handle, IID_IShellView, {out}view);

现在我们有了文件夹的 IShellView(相对于 IContextMenu 或 IExtractIcon)，我们现在要显示外壳调用查看IShellView.CreateViewWindow :

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);

瞧，可识别的 shell ListView ，显示我的桌面:

完成上下文菜单处理程序:

除了当我点击打开时，而不是向我发送 BrowseObject事件通过 IShellBrowser我提供的界面，它会打开一个新窗口:

当我双击时会发生同样的情况。

如何让 Microsoft 的 DefView 可浏览？

---

更新 ShellBrowser 实现

当创建一个 IShellView 时，你必须给它一个实现了 IShellBrowser 的对象。此 ShellBrowser 对象是 View 与托管容器通信的方式。

在15个方法中，我只仔细看了四个——其余的都可以返回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 :

• GetWindow([out] HWND *phwnd);

    //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; 
  

• `ContextSensitiveHelp([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;

红利阅读

• ex-MSFT Eric Law documents this behavior as an instantional change in Windows 7, and how to work around it . ^archive (除非它不起作用)
• fogbit having the same problem
• more talk on how to implement IServiceProvider to respond to SID_SInPlaceBrowser

---

另见

• Implementing IShellBrowser to host IShellView

Answer 1

在 Vista 或更高版本上，您可以切换到托管 ExplorerBrowser，从中您可以 QI IObjectWithSite 并传递一个对象，该对象实现 IServiceProvier 以及 SID_SShellBrowser 或 SID_SInPlaceBrowser 等服务。

在 XP 上，您可能需要处理源自您的进程的 DDE 消息，因为那时默认的文件夹关联是 DDE。