Как перевести код клавиши

[vovken1997]

Здравствуйте!
У меня есть код клавиши, к примеру 50. Как перевести в строку, на латинице и кирилице???

[Человек_Борща]

Chr(код клавиши)

[vovken1997]

Спасибо!
А как выводить русскую раскладку???

[Человек_Борща]

Выводит символ в соотв. с текущей раскладкой.

[vovken1997]

procedure TForm1.Timer2Timer(Sender: TObject);
var
keyloop, KeyResult : Integer;
key:string;
begin
keyloop := 0;
repeat
KeyResult:=GetAsyncKeyState(keyLoop );

if KeyResult=-32767 then
begin
if (keyLoop>47) and (keyloop<91) then
begin
Memo1.Lines.Add(Chr(KeyLoop));
end
else
memo1.Lines.Add(IntToStr(keyloop));
end;

inc(KeyLoop);
until keyLoop=255;
end;

Почему то у меня выводит только английские

[vovken1997]

Почему на русской раскладке английские буквы???

[s-andriano]

Сообщение от vovken1997

Почему на русской раскладке английские буквы???

А потому, что изначальный совет:

Chr(код клавиши)

был неверен.
Должно быть

Chr(код символа)

а уже преобразование кода клавиши в код символа должно осуществляться с учетом выбранной раскладки.

[vovken1997]

Как мне сделать, чтоб выводилась клавиша, а не её код???

К примеру в ловушках используется GetKeyNameText , есть что то подобное для ASCII???

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

MapVirtualKey

[vovken1997]

Спасибо!