var
HookHandle: hHook;
function HookProc(Code: integer; WParam: word; LParam: Longint): Longint; stdcall;
var
msg: PMSG;
begin
if Code >= 0 then begin
result := 0;
msg := Pointer(LParam);
Form1.ListBox1.Items.Add(IntToStr( msg.message));
end else
result := CallNextHookEx(HookHandle, code, WParam, LParam);
end;
procedure TForm1.FormCreate(Sender: TObject);
var
h:HWND;
begin
h:=FindWindow(...);
if h<>0 then
HookHandle := SetWindowsHookEx(WH_MSGFILTER, @HookProc, HInstance, GetWindowThreadProcessId(h) );
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
if HookHandle <> 0 then
UnhookWindowsHookEx(HookHandle);
end;
Хук устанавливается не из DLL - может в етом дело?
Причем если етот код я делаю на Handle, то все работает.
Подскажите, пожалуйста, в чем может быть дело.
Заранее благодарен.