View previous topic :: View next topic |
Author |
Message |
Vovka
Joined: 26 Jun 2006 Posts: 11
|
(Separately) Posted: Fri Sep 01, 2006 15:55 Post subject: |
|
|
funduk wrote: | Попробуй ещё Powerpro или Autohotkey или AutoIt. |
Мне нужна не программа, а функция... Читай первый пост. |
|
Back to top |
|
|
Vovka
Joined: 26 Jun 2006 Posts: 11
|
(Separately) Posted: Fri Sep 01, 2006 15:58 Post subject: |
|
|
StrangeRRor wrote: | Может быть WireKeys? |
Насколько я понял это опять программа... а мне нужен код... |
|
Back to top |
|
|
StrangeRRor
Joined: 15 Jul 2006 Posts: 214
|
(Separately) Posted: Fri Sep 01, 2006 16:45 Post subject: |
|
|
Нашел вот это:
Quote: | 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. |
|
|
Back to top |
|
|
|