Как получить ASKII код нажатой клавиши ?

← →
fag2000@ok.ru (2002-03-13 14:02) [0]

Привет всем!
Как получить ASKII код нажатой клавиши при обработке сообщения WM_KEYDOWN?
Заранее благодарен.

← →
troits (2002-03-13 14:07) [1]

Посмотри help по ф-ции ToAscii

← →
troits (2002-03-13 14:57) [2]

У меня получилось вот так.

procedure TForm1.WMKeyDown(var Message: TWMKeyDown);
var
ScanCode: Cardinal;
KeyBoardState: TKeyBoardState;
Buf: array[0..2] of char;
begin
ZeroMemory(@Buf, 3);
GetKeyboardState(KeyBoardState);
ScanCode := MapVirtualKey(Message.CharCode, 0);

if ToAscii(Message.CharCode, ScanCode, KeyBoardState, Buf, 0) > 0 then
Label1.Caption := string(Buf[0]);
end;

← →
fag2000@ok.ru (2002-03-13 17:32) [3]

А если это в Hooke далается для чужого приложения?

Как получить ASKII код нажатой клавиши ? Найти похожие ветки