Как задействовать стрелки? Опции

[ДенисС]

Стал вот потихоньку разбираться с паскалем, вроде что то получается. Вот возникла проблема: как задействовать стрелки и прочии несимвольные клавиши? С буквами-цифирьками вроде все просто, пишешь например C:=readln, а потом разными способами опредиляешь, что надо сделать с этой клавишей. А вот как быть со стрелками - как то непойму. Они вроде таким способом в строковую переменную ничего не записывают. Где-то краем уха услышал, что используется запись каким-то сложным шифром, а вот как его после этого опредилять, и какие кнопки каким шифром опредиляются - не слышал. Может здесь кто подскажет, как это все надо делать?

[P@sh@]

не забывайте также, что седьмой бит значения scancode:=Port[$60] - это флаг нажатия/отпускания клавиши... т.е. если scancode and $80>0, то клавишу отпустили, если 0 - нажали...
также есть некоторые клавиши (Pause, WinKeys, дополнительная цифровая клавиатура - т.н. GreyPad), которые выдают несколько кодов за раз (до четырех) и на нажатие и на отпускание
пример:

Код

var scancode: byte;
     keyup: boolean; {false - нажатие}
     shift: boolean;  {индикатор нажатия клавиши "Shift"}
...
 scancode:=Port[$60];  {последнее событие клавиатуры}
 keyup:=scancode and $80>0; {выцепляем 7-й бит}
 scancode:=scancode and $7F; {убираем 7-й бит}
 if scancode=$2B then shift:=not keyup;  {шифт нажат или отпущен}
...

далее можно проверять флаг shift при обработке обычных клавиш...

но этот код лучше всего использовать в составе обработчика прерывания клавиатуры (как например сделано в моей игрушке "танки", кое-какие исходники которой выложены на форуме). Если же нужна вся клавиатура, а обработчик делать влом (таблицы офигенные набивать), есть еще вариант, небольшая процедурка, потом запишу сюда, если надо