Wie bekomme ich das GIT in Delphi 7?

Ich versuche, die globale Schnittstellentabelle mithilfe des folgenden Codes (Delphi) abzurufen:

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;

CoCreateInstance löst jedoch die Ausnahme "Klasse nicht registriert" aus. Und tatsächlich: In HKCR / CLSID gibt es keinen Eintrag für {00000146- usw.}.

Welche dll oder ocx sollte registriert sein, um diese Definition in die Registry zu bekommen? Oder mache ich das total falsch?

Antworten auf die Frage(3)

Ihre Antwort auf die Frage