Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Аналог ClrScr & KeyPressed в Delphi [WinXP]

NovaC © (2006-11-23 08:00:00)
День добрый!
Если кто знает помогите пожалуста!
Как в консольном приложении в Delphi реализовать
такие простые вещи как:
ClrScr т.е. очистка экрана
keypresssed : bool; т.е. нажатие кнопки
например
repeat until keypressed;
В старом добром паскале задумываться об этом не приходилось!
А в Delphi для для замены keypressed нашел только громозкие процедуры и функции с использованием:
ReadConsoleInput(GetStdHandle(STD_OUTPUT_HANDLE), IBuff, 1, IEvent);
GetNumberOfConsoleInputEvents(ConsoleInput, NumberOfEvents)

а для CLS такая процедура но она у меня не чистит экран:
procedure Cls;
var
MaxX, MaxY : Word;
Coord : TCoord;
NOAW : DWord;
begin
// Получаем дескриптор вывода (output)
ConsoleInput := GetStdHandle(STD_INPUT_HANDLE);
// Получаем максимальные размеры окна
Coord := GetLargestConsoleWindowSize(ConsoleInput);
MaxX := Coord.X;
MaxY := Coord.Y;
// Очистка экрана - заполнение его пробелами
Coord.X := 0;
Coord.Y := 0;
FillConsoleOutputCharacter(ConsoleInput, ' ', MaxX * MaxY, Coord, NOAW);
// Установка курсора в координаты X, Y :
Coord.X := 0;
Coord.Y := 0;
SetConsoleCursorPosition(ConsoleInput, Coord);
end;

НЕУЖЕЛИ НЕТ БОЛЕЕ ПОСТОГО ВАРИАНТА !?!?!?

Сергей М. (2006-11-23 08:16:00) [1]

> НЕУЖЕЛИ НЕТ БОЛЕЕ ПОСТОГО ВАРИАНТА

Неужели нет более простой ОС, нежели Windows ?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »