Einzelnen Beitrag anzeigen

hathor
(Gast)

n/a Beiträge
 
#7

AW: Wie kann ich eine Konsolenanwendung leeren?

  Alt 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;
  Mit Zitat antworten Zitat