Article #16949: Clearing the window in a console application

 Question and Answer Database
FAQ1949D.txt Clearing the window in a console application
Category :Miscellaneous
Platform :All
Product :All 32 bit
Question:
How can I guarantee to clear my window in a console application?
Answer:
The following example demonstrates clearing the console window by
using the screensize information passed back from the Windows API
function GetConsoleScreenBufferInfo() to write several blank lines.
Example:
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.
7/16/98 4:31:28 PM

Last Modified: 01-SEP-99