Ловушка WH_Keyboard…

← →
SemFLY © (2002-11-23 22:32) [0]

Мне надо чтобы моя программа перехватывала нажатие клавиш на клавиатуре и показывала сообщение с той клавишей, которую я нажму, допустим «Нажата клавиша ‘q’»

Ловушку я поставил, а вот как именно узнать какая клавиша нажата ?

Вот мой код :

function PressKey(code : integer; wParam : word; lParam : longint) : longint; stdcall; begin if code = HC_ACTION then begin // какой код должен быть тут end; end; procedure TForm1.Button1Click(Sender: TObject); begin If SetWindowsHookEx(WH_Keyboard,@PressKey, HInstance, 0) > 0 then ShowMessage("Hook Setup !"); end;

------------

Спасибо ! :))

← →
Morfein © (2002-11-23 22:55) [1]

Код клавиши передаётся параметром wParam.
Нажата или отпущена клавиша, определяет 31 бит параметра lParam
Название клавиши можнно получить через функцию GetKeyNameText

← →
SemFLY © (2002-11-24 00:44) [2]

Morfein, если не трудно, не мог бы ты привести пример, как всё это будет выглядеть ввиде кода...

← →
Song © (2002-11-24 10:51) [3]

ShowMessage("Нажата клавиша "+Chr(WParam))

← →
Cosmic © (2002-11-24 16:48) [4]

Кстати, а можно ли эту ловушку сделать глобальной, не используя ДЛЛ?

← →
Morfein © (2002-11-24 20:13) [5]

to Cosmic : можно, но на 2k/XP работать не будет...

← →
SemFLY © (2002-11-25 01:30) [6]

Всё работает, но ткт ещё вопрос возник, а в определённом окне чтобы отловить нажатие клавиши ?

← →
Fantasist © (2002-11-25 08:06) [7]

> Morfein © (24.11.02 20:13)
> to Cosmic : можно, но на 2k/XP работать не будет...

Интересно... А как это будет работать в win95/98? MSDN черным по белому пишет, что глобальная ловушка должна быть размещена в dll ибо код обрабатывающий ловушку должен быть загружен во все исполняющиеся процессы.

← →
Song © (2002-11-25 08:10) [8]

>>to Cosmic : можно, но на 2k/XP работать не будет...
Чушь. Глобальная ловушка не может быть без dll.

...

Чушь. Глобальная ловушка не может быть без dll
to Song : самонадеянное заявление :)) ты же не пробовал...
всё делается просто... процедура-ловушка может быть расположена в этом самом исполняемом модуле и просто экспортирована из него.
Плохо только то, что всместе с процедурой в память будет загружено дохрена ненужного там в данный момент кода самой exe-шки...
Я лично это проверял, если не веришь, могу прислать клавиатурный шпион, работающий без dll"a и сам убедишься!
А на NT"ях не работает по непонятной причине... ловушка устанавливается, но не вызывается системой...

Morfein, а ты мне можешь отправить код этого шпиона, буду очень признателен...
Email : loop@mailru.com

Ловушка WH_Keyboard… Найти похожие ветки