Ich versuche, das Global Interface Table mit dem folgenden Code (Delphi) zu erhalten:Wie bekomme ich das GIT in Delphi 7?
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;
jedoch CoCreateInstance eine "Klasse nicht registriert" Ausnahme auslöst. Und tatsächlich: In HKCR/CLSID gibt es keinen Eintrag für {00000146- etc.}.
Welche DLL oder OCX sollte registriert werden, um diese Definition in der Registrierung zu erhalten? Oder mache ich es total falsch?
Diese Funktion funktioniert, vorausgesetzt, Sie verwenden diese: TGUID = '{00000323-0000-0000-C000-000000000046}' Dank beiden commen für diese Antwort bereitstellt. –