Windows 11下Access进程MainWindowTitle获取异常问题求助

一、双击任务栏图标到底改变了什么？ #

Windows 11的窗口管理机制与Windows 10存在差异：Access启动后若处于后台未激活状态，系统不会立即将窗口标题同步到Process.MainWindowTitle属性中。双击任务栏图标触发了两个关键操作：

• 强制将Access窗口从后台切换到前台，触发窗口激活事件
• 系统会重新同步窗口元数据（包括标题）到进程对象的属性中，完成窗口的完整初始化绑定流程

简单来说，Win11默认不为后台未激活的窗口同步标题信息，只有激活操作才会触发这个同步逻辑。

二、通过MainWindowHandle关联到Access.Application实例的实现方法 #

你可以借助Windows API绕过窗口标题的限制，直接通过进程句柄获取对应的Access COM实例，进而获取数据库文件名等核心信息。具体实现如下：

1. 声明必要的API与接口 #

在VB.NET项目中添加以下代码：

Imports System.Runtime.InteropServices
Imports Microsoft.Office.Interop.Access

' Windows API声明
<DllImport("oleacc.dll", PreserveSig:=False)>
Private Shared Function AccessibleObjectFromWindow(
    ByVal hwnd As IntPtr,
    ByVal dwId As UInt32,
    ByRef riid As Guid,
    <MarshalAs(UnmanagedType.IUnknown)> ByRef ppvObject As Object
) As Integer
End Function

' 常量定义
Private Const OBJID_NATIVEOM As UInt32 = &HFFFFFFF0
Private Const IID_IDispatch As String = "{00020400-0000-0000-C000-000000000046}"

2. 编写获取Access实例的方法 #

实现函数通过进程句柄提取对应的Access.Application对象：

Private Function GetAccessAppFromProcess(process As Process) As Application
    Dim app As Application = Nothing
    Dim dispatchGuid As New Guid(IID_IDispatch)
    
    Try
        Dim comObject As Object = Nothing
        AccessibleObjectFromWindow(process.MainWindowHandle, OBJID_NATIVEOM, dispatchGuid, comObject)
        app = DirectCast(comObject, Application)
    Catch
        ' 捕获进程非Access实例、窗口未初始化等异常
    End Try
    
    Return app
End Function

3. 遍历进程获取实例信息 #

替换原有的窗口标题判断逻辑，直接通过实例获取数据库路径：

Dim allAccessProcesses() As Process = Process.GetProcessesByName("MSACCESS")
Dim currentSessionId As Integer = Process.GetCurrentProcess.SessionId

For Each proc In allAccessProcesses.Where(Function(p) p.SessionId = currentSessionId)
    Dim accessApp As Application = GetAccessAppFromProcess(proc)
    If accessApp IsNot Nothing Then
        Dim fullDbPath As String = accessApp.CurrentProject.FullName
        ' 从路径中提取编号（如app0.accde），判断实例是否已被使用
        ' ... 你的业务逻辑 ...
        
        ' 释放COM资源，避免内存泄漏
        Marshal.ReleaseComObject(accessApp)
    End If
Next

注意事项 #

• 需在项目中引用Microsoft.Office.Interop.Access程序集（通过NuGet或项目引用添加）
• 若进程刚启动，可能需要短暂等待窗口初始化完成后再调用获取方法
• 必须手动释放COM对象，防止Office进程残留

内容的提问来源于stack exchange，提问作者Andre Gotlieb