Como obter o GIT no Delphi 7?
Eu estou tentando obter a tabela de interface global usando o seguinte código (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;
No entanto, CoCreateInstance lança uma exceção "Classe não registrada". E, de fato: em HKCR / CLSID, não há entrada para {00000146- etc.}.
Qual dll ou ocx deve ser registrado, para obter essa definição no registro? Ou estou fazendo isso totalmente errado?