Страница 2 из 2

Добавлено: Пт сен 01, 2006 15:55
Vovka
funduk писал(а):Попробуй ещё Powerpro или Autohotkey или AutoIt.
Мне нужна не программа, а функция... Читай первый пост.

Добавлено: Пт сен 01, 2006 15:58
Vovka
StrangeRRor писал(а):Может быть WireKeys?
Насколько я понял это опять программа... а мне нужен код...

Добавлено: Пт сен 01, 2006 16:45
StrangeRRor
Нашел вот это:
Q:> 2.4.5 Как читать клавиши курсора, F1-F12 и т.д.?

A:> Эти клавиши кодируются двумя байтами: #0 +<код>
Есть таблицы для всех этих символов, но можно обойтись и без них
Откомпилите эту программку и будете знать коды любых клавиш =)

uses Crt;
var
Key: char;
Begin
while true do Begin
Key:=readkey;
case Key of
#0: WriteLN('#0 + #', ord(readkey));
#27: Begin WriteLN('#27 - Esc pressed.'); Halt; End;
Else WriteLN(ord(key))
End;
End;
End.