Хук CoCreateInstance

← →
Misha Uskov © (2006-06-08 09:10) [0]

Помогите, пожалуйста, не удается одолеть subj.
Вот определение перехватываемой функции:
CoCreateInstance( REFCLSID rclsid, LPUNKNOWN pUnkOuter, DWORD dwClsContext, REFIID riid, LPVOID * ppv )
У себя определяю как
TCoCreateInstance = function(REFCLSID: TGUID; pUnkOuter: TLPUNKNOWN; dwClsContext: DWORD; riid: TGUID; ppv: pointer): Integer; stdcall;
TLPUNKNOWN = pointer;
собственно хучится без проблем, но падает при простом вызове перехваченной функции
function HookCoCreateInstanceSeven(REFCLSID: TGUID; pUnkOuter: TLPUNKNOWN; dwClsContext : DWORD; riid: TGUID; ppv: pointer): Integer; stdcall;
begin
result := TCoCreateInstance(OldCoCreateInstance)(REFCLSID, pUnkOuter, dwClsContext, riid, ppv);
end;
Терзают сомнения насчет правильности типов в функции

← →
Игорь Шевченко © (2006-06-08 10:03) [1]

function CoCreateInstance(const clsid: TCLSID; unkOuter: IUnknown;
dwClsContext: Longint; const iid: TIID; var pv): HResult; stdcall;

← →
Misha Uskov © (2006-06-08 10:19) [2]

(1) Спасибо, пробую

(1) Работает. Еще раз спасибо.

Хук CoCreateInstance Найти похожие ветки