Скан-код клавиши и её виртуальный код.

[NetSpace]

Снова добрый вечер! По одному доброму совету модератора, копнул поглубже в сторону хука и создания DLL'ки. вот кусочек кода - функция, в которой определяется скан-код клавиши и успешно отсылается моей форме.

function KeyHook(code,WParam,LParam:DWORD):DWORD;stdcall;
var ServerWnd:THandle;
    ScanCode:Integer;
begin
   if(code=HC_ACTION)then if((LParam or(1 shl 30))=LParam)then
   begin
      ServerWnd:=FindWindow(nil,'EXFar');
      GetKeyboardState(KeybrdState);
      ScanCode:=(LParam shr 16)and $FF;
      if(ToASCII(WParam,ScanCode,KeybrdState,@Symbol,0)>0)then PostMessage(ServerWnd,WM_KEYEVENT,ord(Symbol[0]),LParam)
      else PostMessage(ServerWnd,WM_KEYEVENT,0,LParam);
   end;
   Result:=CallNextHookEx(HookHandle,code,WParam,LParam);
end;

на форме просто компонент Label, в котором и отображается принятое сообщение LParam:

procedure TForm1.KeyMessageHandler(var Msg:TMessage);
var KeyName:array[0..99]of Char;
begin
   //GetKeyNameText(Msg.LParam,KeyName,sizeof(KeyName));
   Label1.Caption:=IntToStr(Msg.LParam);
end;

И всё работает хорошо, НО не отлично.
Каким макаром извлечь из скан-кода виртуальный код клавиши, то есть получить не ИМЯ (поэтому и закомментировал строку GetKeyNameText()), а ВИРТУАЛЬНЫЙ КОД, скажем 13 (ENTER), 27(ESC), 32(SPACE)... и т.д.
пока что выводит вот такую жуть:
-1073610751 и похожие длинные числа. И почему МИНУС? это переполнение разряда или что?

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

MapVirtualKeyEx
далее согласно этому видим:
знаковый бит от lParam ставится в том случае если кнопка отпущена.
дальше у вас итак wParam это код символа

[NetSpace]

хм, точно. исправил строку

Label1.Caption:=IntToStr(Msg.LParam);

на

Label1.Caption:=IntToStr(Msg.WParam);

и вроде как заработало, но функциональные клавиши, CTRL, ALT, стрелочки не определяет. пишет код: 0.

[NetSpace]

всё, исправил в DLL'ке!

      GetKeyboardState(KeybrdState);
      PostMessage(FindWindow(nil,'EXFar'),WM_KEYEVENT,WParam,0);

работает для всех клавиш.
Тема закрыта.