Tag: Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
  KeyState : Word;
  S : String;
begin
  KeyState := GetKeyState(VK_SCROLL);
  S := 'Клавиша: VK_SCROLL. Состояние:';
  if KeyState and $8000 = $8000 then
    S := s+'down'
  else
    S := s+'up';
  if KeyState and 1 = 1 then
    S := S + 'toggle on'
  else
    S := S + 'toggle off'
  ;
  ShowMessage( S );
end;

function GetRealChar(AKey: Word): Char;
var
  Layout: HKL;
  KeyboardState: TKeyboardState;
  RealCode: AnsiString;
  ScanCode: Integer;
  s: string;
begin
  Layout := GetKeyboardLayout(GetCurrentThreadID);
  SetLength(RealCode, 1);
  FillChar(RealCode[1], Length(RealCode), 0);
  FillChar(KeyboardState[0], SizeOf(KeyboardState), 0);
  KeyboardState[AKey] := 0;
  ScanCode := (AKey shr 16) and $FF;
  ToAsciiEx(AKey, ScanCode, KeyboardState, PChar(RealCode), 0, Layout);
  s := RealCode;
  Result := s[1];
end;