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?