小编Roc*_*uck的帖子

如何在Delphi 7中获得GIT?

我正在尝试使用以下代码(Delphi)获取全局接口表:

uses Comobj, ActiveX;

var
   cGIT : IGlobalInterfaceTable = NIL;
const
   CLSID_StdGlobalInterfaceTable: TGUID = '{00000146-0000-0000-C000-000000000046}';


function GIT : IGlobalInterfaceTable;
begin
   if (cGIT = NIL) then
      OleCheck (CoCreateInstance (CLSID_StdGlobalInterfaceTable, NIL,
                                  CLSCTX_ALL, IGlobalInterfaceTable, cGIT ));
  Result := cGIT;
end;
Run Code Online (Sandbox Code Playgroud)

但是,CoCreateInstance会抛出"未注册类"异常.事实上:在HKCR/CLSID中,{00000146-等没有条目.

应该注册哪个dll或ocx才能在注册表中获得此定义?或者我完全错了吗?

delphi com marshalling

4
推荐指数
2
解决办法
2665
查看次数

标签 统计

com ×1

delphi ×1

marshalling ×1