Jak zdobyć GIT w Delphi 7?
Próbuję pobrać tabelę globalnego interfejsu przy użyciu następującego kodu (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;
Jednak CoCreateInstance zgłasza wyjątek „Klasa niezarejestrowana”. I rzeczywiście: w HKCR / CLSID nie ma wpisu dla {00000146- itd.}.
Które dll lub ocx powinny zostać zarejestrowane, aby uzyskać tę definicję w rejestrze? Czy też robię to całkowicie źle?