Je suis en train d'obtenir le Global Interface Table en utilisant le code suivant (Delphi):Comment obtenir le GIT dans 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;
Cependant, CoCreateInstance renvoie une exception "Classe non enregistrée". Et en effet: dans HKCR/CLSID il n'y a pas d'entrée pour {00000146- etc.}.
Quel dll ou ocx devrait être enregistré, pour obtenir cette définition dans le registre? Ou est-ce que je le fais totalement faux?
Cette fonction, à condition que vous utilisez ceci: TGUID = '{00000323-0000-0000-C000-000000000046} Merci aux deux intervenants pour fournir cette réponse. –