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

Советы » 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

.

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com