Определение сканкода нажатой клавиши

[Peter86]

В паскале, для определения сканкода нажатой клавишииспользуется функция ReadKey. Какаю функцию использовать для этого в Delphi, при создании консольного приложения?
И какие процедуры использовать для: Задания цвета фона, цвета символа, очистки экрана?
Например, как написать вот такую программу в дельфи:

Uses Crt;
var 
  Key:Char;
Begin
  TextBackground(1);   
  ClrScr;
  TextColor(2);
  repeat
    if KeyPressed then Key:=ReadKey;
    if Key=#72 then Write('*');
    Key:=ReadKey;
  until Key=#27;
End.

[_Dmitry]

Есть модуль CRT32 (где взял, не помню), в нем процедуры и функции, аналогичные CRT, но для консоли в Delphi.

[DECANT]

У мну проблема, подключаю этот модуль и половина русскиз букв исчезает. Что то можно сделать?

[_Dmitry]

http://www.programmersforum.ru/showthread.php?t=22051

[DeKot]

События KeyUp и KeyDown в переменной Key возвращают код клавиши, а событие KeyPress в переменной Key содержат символ, соответствующий нажатой клавиши( с учетом раскладки и регистра).
Для получения кода символа - code simbol(integer) := ORD(Key)

[LSV]

Сообщение от _Dmitry

Есть модуль CRT32 (где взял, не помню), в нем процедуры и функции, аналогичные CRT, но для консоли в Delphi.

Дмитрий, Огромное СпасиБо!

Целый Вечер "Вспоминал Молодость" Пытался в "Старом Паскалевском Стиле" Написать Консольное Приложение под Delphi.

Мнда. Delphi - 7ой версии.

Как Мало Они Оставили от Старого Паскаля.

Уже Пол Инета Перерыл В Поисках Подобного Модуля. Уже Хотел Ругаться Типа "Сплошная попса..."

На Всех (десятки) страниц, при описании консольных Приложений Одна и таже копия статьи содержащая описание Write, WriteLn, Read, ReadLN...

Как Серьёзный Вопрос Встанет Так Инет Безсилен...

Ан Нет... Дал Правильный Запрос...
(Загрузил DOSовский Паскаль, Вспомнил название Функции ReadKey)
И Оказался на этой Страничке.
Тот Модуль, Что Ты Выложил - Просто ЧУДО!

СпасиБО!


Еще Раз ОГРОМНОЕ СПАСИБО!

[LSV]

Вообщем часов 12 поисков.
По-моему нашел. Для Интересующихся Консольными приложениями.
Тут (по-моему) есть все и По-человечески

http://www.silicontaiga.ru/home.asp?artId=5757

Сообщение от DeKot

События KeyUp и KeyDown в переменной Key возвращают код клавиши, а событие KeyPress в переменной Key содержат символ, соответствующий нажатой клавиши( с учетом раскладки и регистра).
Для получения кода символа - code simbol(integer) := ORD(Key)

Кстати, Эта Информация, Да, Верна.
Но(!) для приложений с Формами.
В Консольных Приложениях Uses Forms; не используются....