| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

chizra ©   (2006-06-01 22:46:00) 

Привет!
У меня какая-то ошибка после установки 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;

---

Сергей М.   (2006-06-02 08:58:00) [1]

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


Не null, а 0!

---

chizra   (2006-06-01 22:51:00) [2]

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

---

Наверх