Форум: "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.45 MB
Время: 0.037 c