通过IExplorerCommand调用程序时窗口后置问题的排查与解决咨询

成因 #

1. 未传递父窗口句柄：调用IShellExtInit.Initialize时第三个参数传入了IntPtr.Zero，Shell扩展无法获取上下文菜单的所有者窗口句柄，导致启动程序时无法将克隆程序窗口作为父窗口关联，新程序窗口被系统默认置于后台。
2. MockServiceProvider未提供正确窗口服务：自定义的MockServiceProvider没有实现返回当前窗口的IOleWindow或相关服务接口，Shell命令无法获取正确的窗口上下文来处理窗口层级。
3. BindCtx未关联窗口信息：创建的IBindCtx未注入当前窗口句柄相关参数，Shell执行命令时缺少窗口上下文参考。

解决方案 #

1. 修正IShellExtInit.Initialize的父窗口参数 #

将init.Initialize的第三个参数从IntPtr.Zero替换为克隆程序的主窗口句柄（比如当前窗口的Handle属性）：

init.Initialize(folder.Pidl.AbsolutePIDL, dobj, Me.Handle) ' Me.Handle为当前程序窗口句柄

2. 完善MockServiceProvider的服务实现 #

修改MockServiceProvider，使其能返回当前窗口的IOleWindow接口，让Shell命令可以获取父窗口句柄：

Public Class MockServiceProvider
    Implements IServiceProvider
    Private _hwnd As IntPtr

    Public Sub New(hwnd As IntPtr)
        _hwnd = hwnd
    End Sub

    Public Function QueryService(ByVal guidService As Guid, ByVal riid As Guid, ByRef ppvObject As IntPtr) As Integer Implements IServiceProvider.QueryService
        ' 处理IOleWindow的服务请求
        If riid = GetType(IOleWindow).GUID Then
            Dim oleWindow As New OleWindowImpl(_hwnd)
            ppvObject = Marshal.GetComInterfaceForObject(oleWindow, GetType(IOleWindow))
            Return HRESULT.S_OK
        End If
        ' 保留原有其他服务的处理逻辑
        ' ...
        Return HRESULT.E_NOINTERFACE
    End Function

    Private Class OleWindowImpl
        Implements IOleWindow
        Private _hwnd As IntPtr

        Public Sub New(hwnd As IntPtr)
            _hwnd = hwnd
        End Sub

        Public Function GetWindow(ByRef phwnd As IntPtr) As Integer Implements IOleWindow.GetWindow
            phwnd = _hwnd
            Return HRESULT.S_OK
        End Function

        Public Function ContextSensitiveHelp(ByVal fEnterMode As Integer) As Integer Implements IOleWindow.ContextSensitiveHelp
            Return HRESULT.S_FALSE
        End Function
    End Class
End Class

然后在创建MockServiceProvider时传入当前窗口句柄：

Dim sp As MockServiceProvider = New MockServiceProvider(Me.Handle)
Dim h2 As HRESULT = s.SetSite(sp)

3. 为BindCtx注入窗口句柄参数 #

在创建IBindCtx后，注册窗口句柄相关的属性参数，确保Shell命令能获取到窗口上下文：

Dim bindCtx As ComTypes.IBindCtx = Nothing
Functions.CreateBindCtx(0, bindCtx)

' 注册窗口句柄到BindCtx
Dim hwndParam As Object = Me.Handle
bindCtx.RegisterObjectParam("HWND", hwndParam)

command.Invoke(array, Marshal.GetIUnknownForObject(bindCtx))

验证逻辑 #

完成以上修改后，Shell扩展在执行“用程序编辑”命令时，会将克隆程序窗口作为父窗口，新启动的程序窗口会自动前置并获取焦点，符合预期的窗口层级行为。

内容的提问来源于stack exchange，提问作者miss programmer