Нужно просто использовать 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. | |