не работает хук

[The SCS]

function MouseProc(Code, wParam: Integer; var EventStrut: TEventMsg): Integer;
begin
MessageBeep(MB_ICONINFORMATION);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  SetWindowsHookEx(WH_MOUSE, @MouseProc, 0, GetPid('wa.exe'));
end;

по идее при клике мышкой в окне процесса wa.exe должен раздаться бип из программы. но он не раздается.
в инете по неглобалным хукам почти ничего нету..

[Пепел Феникса]

ну как бы MouseProc должна быть в длл поидее.

[The SCS]

для неглобальных хуков не надо в длл

вобщем, выяснилось, что для отслеживаемого приложения хуки на мышь вообще не работают.. придется писать костыли..

[Пепел Феникса]

http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx
а вы почитайте описание параметров 2-4.