Форум: "WinAPI";
Текущий архив: 2006.10.22;
Скачать: [xml.tar.bz2];
ВнизХук 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) Спасибо, пробую
← →
Misha Uskov © (2006-06-08 10:23) [3](1) Работает. Еще раз спасибо.
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2006.10.22;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.045 c