Форум: "WinAPI";
Текущий архив: 2005.01.16;
Скачать: [xml.tar.bz2];
ВнизКонсольное приложение Найти похожие ветки
← →
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 вся ветка
Форум: "WinAPI";
Текущий архив: 2005.01.16;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.046 c