[RED]

Привет.
Мне нужно поставить ловушку на wm_parentnotify. Конкретнее на wm_create в параметре wparam. Пишу:

Код:

hMyHook:= SetWindowsHookEx(WH_GETMESSAGE,@HookProc,HINSTANCE,0);

function HookProc(code: integer; wpar: WPARAM; lpar: LPARAM): LRESULT; stdcall;
var
    msg:                  TMsg;

begin
  if code=HC_ACTION then
  begin
    msg:= PMsg(lpar)^;
    if loword(msg.message)=WM_PARENTNOTIFY and (loword(msg.wParam)=WM_CREATE) THEN ...

Ловушка молчит. Что не так???
Заранее спасибо.