Как отличить клавиши клавиатуры с одинаковым программным кодом? Например, "стрелку вверх" на стандартной клавиатуре и цифру 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;