Как можно гарантированно очистить экран в консольном приложении

Delphi , ОС и Железо , DOS и Консоль

Нужно просто использовать GetConsoleScreenBufferInfo() для ввода нескольких пустых строк.

program Project1;
{$APPTYPE CONSOLE}
uses
  Windows;
{$R *.RES}
var
  sbi: TConsoleScreenBufferInfo;
  i: integer;
begin
  Writeln('A Console Applicaiton');
  Writeln('Press Enter To Clear The Screen');
  GetConsoleScreenBufferInfo(GetStdHandle(STD_OUTPUT_HANDLE),
    sbi);
  Readln;
  GetConsoleScreenBufferInfo(GetStdHandle(STD_OUTPUT_HANDLE),
    sbi);
  for i := 0 to sbi.dwSize.y do
    writeln;
  Writeln('Press Enter To End');
  Readln;
end.

Статья Как можно гарантированно очистить экран в консольном приложении раздела ОС и Железо DOS и Консоль может быть полезна для разработчиков на Delphi и FreePascal.

Комментарии и вопросы

:: 2010-12-15 23:58:11 :: re:Как можно гарантированно очистить экран в консольном приложении

пользователь: Вася.

А если необходимо чтоб консоль заполнилась не просто пустыми строчками (там остается n пустых строчек), а еще и чтоб можно было писать с самого верха окоша...

:: 2010-12-26 21:28:38 :: re:Как можно гарантированно очистить экран в консольном приложении

пользователь: kan.

В чем проблема-то , собственно у тебя не удаляются 2 строки которые ты выводишь через Writeln.

:: Главная :: DOS и Консоль ::