Скачать: CL | DM;

Аналог ClrScr & KeyPressed в Delphi   Найти похожие ветки 

← →
NovaC   (2006-11-23 08:00) [0]

День добрый!
Если кто знает помогите пожалуста!
Как в консольном приложении в 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) [1]

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


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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.031 c