(Gast)
n/a Beiträge
|
AW: Wie kann ich eine Konsolenanwendung leeren?
5. Dez 2010, 00:35
Ohne zusätzliche Units geht es so:
Delphi-Quellcode:
procedure ClrScr;
var tc :tcoord;
nw : DWORD;
cbi : TConsoleScreenBufferInfo;
HConsoleOutput:thandle;
TextAttr : Word;
begin
TextAttr := cbi.wAttributes;
HConsoleOutput := GetStdHandle(STD_OUTPUT_HANDLE);
getConsoleScreenBufferInfo(HConsoleOutput,cbi);
tc.x := 0;
tc.y := 0;
FillConsoleOutputAttribute(HConsoleOutput,textattr,cbi.dwsize.x*cbi.dwsize.y,tc,nw);
FillConsoleOutputCharacter(HConsoleOutput,#32,cbi.dwsize.x*cbi.dwsize.y,tc,nw);
setConsoleCursorPosition(hconsoleoutput,tc);
end;
|
|
Zitat
|