Текущий архив: 2006.10.22;
Скачать: CL | DM;

Вниз

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

← →
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.

---

← →
Сергей М. ©   (2006-06-02 08:58) [2]

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


Не null, а 0 !

---

Страницы: 1 вся ветка

Текущий архив: 2006.10.22;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.069 c