У меня какая-то ошибка после установки hookа WH

← →
chizra © (2006-06-01 22:46) [0]

Привет!
У меня какая-то ошибка после установки hookа WH_CALLWNDPROC.
Ловушку ставлю из своей библиотеки. Т.е. чужая программа загружает мою библиотеку вызывает процедуру из библиотеки. В процедуре ставится hook.
Процедура установки и вызова hooka такие:

var
H_hook:THandle;

procedure hook(param:boolean);
begin
if param then
H_hook:=SetWindowsHookEx(WH_GETMESSAGE,@HookProc, null, GetCurrentThreadId )
else
UnHookWindowsHookEx(H_hook);
end;

function HookProc(code:integer; wParam:longword; lParam:longword): longint; stdcall;
var
PngWnd:HWND;
// Pch:Pchar;
// ch:array [0..255] of char;
begin
if code < 0 then
begin
Result:= CallNextHookEx(h_Hook, Code, wParam, lParam);
Exit;
end;

Result:= CallNextHookEx(h_Hook, Code, wParam, lParam);
end;

← →
chizra © (2006-06-01 22:51) [1]

Немного поторопился, в SetWindowsHookEx тип ловушки WH_CALLWNDPROC.

> SetWindowsHookEx(WH_GETMESSAGE,@HookProc, null, GetCurrentThreadId
> )

Не null, а 0 !

У меня какая-то ошибка после установки hookа WH_CALLWNDPROC Найти похожие ветки