Как с помощье ReadKey определить что нажата клавиша "Стрелка"

[Викдон]

Как с помощье ReadKey определить что нажата клавиша "Стрелка", Пытался сделать, но при нажатии стрелки, readKey=#0 .
Да и еще один вопрос! Почему при Выходе из графического режима, вместо русских слов появляется "абракадабра"?

[pomoshnic]

1) c:=readkey; if c=#0 then c:= readkey;
2) попробуйте написать программу в блокноте и скомпилировать в паскале,
или создайте командный файл с таким содержанием:

@echo off
keyrus.com
program.exe

и в папку с программой записать файл keyrus.com.

[alex_fcsm]

Посмотри эту ссылочку. Может что навеет

[r9m]

а стрелка это что? лево право итд? Если вы про эти стрелки то:

if key = VK_LEFT then ShowMessage('лево');
if key = VK_RIGHT then ShowMessage('право');
if key = VK_UP then ShowMessage('низ');
if key = VK_DOWN then ShowMessage('верх');

///Ну вот ) Опять я туплю, не туда и не то написал короче )) Вобщем это всё для Делфи. Сотрите или перенисите =\

[pomoshnic]

Вот программа для определения кода нажатой клавиши:

uses crt;
var c:char;
b:boolean;
begin
textbackground(0);
textcolor(10);
repeat
b:=false;
clrscr;
Writeln('Нажмите клавишу');
c:=readkey;
if c=#0 then b:=true;
if b then c:=readkey;
write('Вы нажали клавишу с кодом: #');
if b then write('0, #');
writeln(ord(c),#7);
delay(60000);
delay(60000);
delay(60000);
delay(60000);
until (not b)and(c=#27);
writeln('Досвидания');
delay(60000);
delay(60000);
delay(60000);
end.

[Викдон]

Спасибо!!!!