1

Как отличить клавиши клавиатуры с одинаковым программным кодом? Например, "стрелку вверх" на стандартной клавиатуре и цифру 8 на цифровой клавиатуре справа ("тоже стрелочка вверх!"). Вот я обрабатываю код клавиши в хуке двумя способами:

1 способ <структура PMsg>

function KeyBoardProc(ACode: Integer; AWParam :WParam; AMsg: PMsg): LRESULT; stdcall;
begin
...
form1.caption:=Inttostr(AMsg.message);  // Структура PMsg
...
result:=CallNextHookEx(hh,ACode,AWParam,LongInt(Amsg));
end;

2 способ <снятие(скан) состояния всех виртуальных клавиш>

function KeyBoardProc(ACode: Integer; AWParam :WParam; AMsg: PMsg): LRESULT; stdcall;
var state:TKeyBoardState;
begin
GetKeyboardState(State);
for i:=1 to 255 do
if((State[i] and 128) <> 0) then form1.caption:=Inttostr(i);  // получаем нажатую
                                                              клавишу
result:=CallNextHookEx(hh,ACode,AWParam,LongInt(Amsg));
end;
1
  • И те и другие виноваты :-). И еще Рабинович :-)
    – karmadro4
    Commented 27 мар. 2012 в 16:20

2 ответа 2

4

Посмотрите например тут таблицу кодов клавиш.

Стрелка вверх:

Клавиша Десятичное число Шестнадцатеричное число Символическое имя

курсор ↑    38  0×26    VK_UP

на нумпад

8   104     0×68    VK_NUMPAD8
1

Смотрите также MSDN "KeyboardProc callback function"

Кратко: нужно проверять на "расширенность клавиши", это 24-й бит в параметре lParam, у вас он почему-то назван AMsg.

Ваш ответ

Нажимая «Отправить ответ», вы соглашаетесь с условиями пользования и подтверждаете, что прочитали политику конфиденциальности.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.