Хуки в виндовс

[Legeardo]

var
  Form6: TForm6;
  hHook1:THandle;

function TForm6.KeyBoardHook(nCode: Integer; WParam: WPARAM;
  LParam: LPARAM): LRESULT;
begin
  ShowMessage('21');
  result:= CallNextHookEx(hHook1,nCode,WParam,LParam);
end;

procedure TForm6.Button2Click(Sender: TObject);
begin  
  hHook1:=SetWindowsHookEx(WH_KEYBOARD,@TForm6.KeyBoardHook,HInstance,0);
end;

При нажатии клавиш ничего не происходит. А по идее должно сообщение выводится. Что я делаю не так? У меня программа без длл

[p51x]

Что я делаю не так?

Не читаете доки.

lpfn [in]
Type: HOOKPROC
A pointer to the hook procedure. If the dwThreadId parameter is zero or specifies the identifier of a thread created by a different process, the lpfn parameter must point to a hook procedure in a DLL. Otherwise, lpfn can point to a hook procedure in the code associated with the current process.

[Legeardo]

Ладно с этим я разобрался. Появилась новая проблемка. Я включаю хук и нажимаю какую то клавишу и она вводится 2 раза. Это наверно из за того что событие срабатывает при нажатии и отпускании. Как сделать проверку что бы срабатывало только при нажатии? Нашел где то

((lParam shr 16) and KF_UP)=0

Не работает. Все равно 2 раза вводится

[northener]

Сообщение от Legeardo

Нашел где то

((lParam shr 16) and KF_UP)=0

Не работает. Все равно 2 раза вводится

Ты что-то где-то нашёл на помойке и оно не работает. От нас-то тебе что нужно? Объяснить почему найденное не работает так как тебе хотелось?
А может тебе такой хук и не нужен совсем? Может стоит обратить внимание на хук WH_KEYBOARD_LL ?

[NetSpace]

я вот как-то с хуками возился http://www.programmersforum.ru/showthread.php?t=291425
и тут http://www.programmersforum.ru/showthread.php?t=271015

[Legeardo]

Я не нашел то что мне нужно в твоих темах. Так как все так проверить какое событие произошло?

[Legeardo]

Все я разобрался. Может кому пригодится:

if (Wparam=WM_KEYUP) or (Wparam=WM_SYSKEYUP) then
 begin

 end
 else
 begin
//какие то действия
 end;