获取第一个运行的Word应用程序实例

获取第一个运行的COM应用程序实例

 

using System;
using System.Collections.Generic;
using System.Runtime.InteropServices;
using System.Runtime.InteropServices.ComTypes;

/// <summary>
/// 提供查询运行中COM对象的改进方案
/// </summary>
public static class ComObjectQuery
{
    [DllImport("ole32.dll")]
    private static extern int GetRunningObjectTable(int reserved, out IRunningObjectTable prot);

    /// <summary>
    /// 获取当前运行中指定类型的COM对象实例
    /// </summary>
    /// <typeparam name="T">要查询的COM接口类型</typeparam>
    /// <returns>找到的COM对象列表，如果没有找到则返回空列表</returns>
    public static IReadOnlyList<T> GetRunningObjects<T>()
    {
        var instances = new List<T>();
        
        try
        {
            // 获取运行对象表
            if (GetRunningObjectTable(0, out var rot) != 0 || rot == null)
            {
                return instances;
            }

            try
            {
                // 枚举运行中的对象
                rot.EnumRunning(out var monikerEnum);
                if (monikerEnum == null)
                {
                    return instances;
                }

                try
                {
                    monikerEnum.Reset();
                    var moniker = new IMoniker[1];
                    var fetched = IntPtr.Zero;

                    // 遍历所有运行中的对象
                    while (monikerEnum.Next(1, moniker, fetched) == 0)
                    {
                        try
                        {
                            // 获取对象实例
                            rot.GetObject(moniker[0], out var comObject);
                            if (comObject is T typedObject)
                            {
                                instances.Add(typedObject);
                            }
                            else if (comObject != null)
                            {
                                Marshal.ReleaseComObject(comObject);
                            }
                        }
                        catch (Exception ex)
                        {
                            // 记录错误但继续处理其他对象
                            System.Diagnostics.Trace.WriteLine($"获取COM对象时出错: {ex.Message}");
                        }
                    }
                }
                finally
                {
                    Marshal.ReleaseComObject(monikerEnum);
                }
            }
            finally
            {
                Marshal.ReleaseComObject(rot);
            }
        }
        catch (Exception ex)
        {
            System.Diagnostics.Trace.WriteLine($"查询运行COM对象时发生错误: {ex.Message}");
        }

        return instances;
    }

    /// <summary>
    /// 获取第一个匹配的COM对象实例
    /// </summary>
    /// <typeparam name="T">要查询的COM接口类型</typeparam>
    /// <returns>找到的第一个COM对象，如果没有找到则返回null</returns>
    public static T GetFirstRunningObject<T>()
    {
        var objects = GetRunningObjects<T>();
        return objects.Count > 0 ? objects[0] : default;
    }
}

 

调用方法：

// 获取所有运行的Excel应用程序实例
var excelApps = ComObjectQuery.GetRunningObjects<Microsoft.Office.Interop.Excel.Application>();// 获取第一个运行的Word应用程序实例
var wordApp = ComObjectQuery.GetFirstRunningObject<Microsoft.Office.Interop.Word.Application>();