Люди, качайте модуль ля реализации проверки нажатия клавиш.
Работает офигительно быстро, иногда надо вставлять delay...
Использование: суешь в цикл процедуру key;
и пишешь if keys[код опроса нужной клавиши ($XX)] then ;
Код
UNIT KeyBoard;
INTERFACE
Var
Keys:array[1..128] of boolean;
Procedure Key;
IMPLEMENTATION
Uses Crt;
Procedure Key;
var
a:byte;
ch:char;
begin
a:=port[$60];
if a>128 then keys[a-128]:=false
else keys[a]:=true;
while keypressed do ch:=readkey;
end;
END.
PEACE всем!!!!!!!!!!!!!!!! ;