Текущий архив: 2005.01.16;
Скачать: CL | DM;

Вниз

Консольное приложение   Найти похожие ветки 

← →
Ozone ©   (2004-11-26 06:17) [0]

Как очистить экран в консольном приложении (типа clrscr в Pascal"e)?

---

← →
_sulent   (2004-11-26 07:55) [1]

uses
 Windows;

var
 mes: string;
 sbi: TConsoleScreenBufferInfo;
 i: integer;
begin
 writeln("clear?: >"); readln(mes);
 if mes = "y" then begin
   GetConsoleScreenBufferInfo(GetStdHandle(STD_OUTPUT_HANDLE), sbi);
     Readln;
     GetConsoleScreenBufferInfo(GetStdHandle(STD_OUTPUT_HANDLE),
       sbi);
     for i := 0 to sbi.dwSize.y do    writeln;
 end;
 readln;

---

← →
Gero ©   (2004-11-26 09:52) [2]

FillConsoleOutputCharacter + FillConsoleOutputAttribute

---

← →
Ozone ©   (2004-11-26 10:23) [3]

Gero ©   (26.11.04 09:52) [2]

Спасибо и тебе.

---

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

Текущий архив: 2005.01.16;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.136 c