# ComObjActive

检索注册的 COM 对象.

    ComObj := ComObjActive(CLSID)

## 参数

CLSID

  类型: 字符串

  要检索的 COM 对象的 CLSID 或可读的 Prog ID.

## 返回值

类型: ComObject

该函数返回一个新的 COM 封装对象, 其变体类型为 VT_DISPATCH (9).

## 错误处理

失败时抛出异常.

## 相关

ComValue, ComObject, ComObjGet, ComObjConnect, ComObjFlags, ObjAddRef/ObjRelease, ComObjQuery, GetActiveObject (Microsoft Docs)

## 示例

如果 Microsoft Word 正在运行, 显示其活动文档的路径. 有关下面使用的 COM 对象和其属性的详情, 请参阅 Word.Application object (Microsoft Docs).

    word := ComObjActive("Word.Application")
    if !word
        MsgBox "Word isn't open."
    else
        MsgBox word.ActiveDocument.FullName

dftg