Whiler | Code :
- uses
- SysUtils, Windows;
- procedure Cls;
- var
- stdOutputHandle : Cardinal;
- cursorPos : TCoord;
- width, height : Cardinal;
- nbChars : Cardinal;
- begin
- stdOutputHandle := GetStdHandle(STD_OUTPUT_HANDLE);
- cursorPos := GetLargestConsoleWindowSize(stdOutputHandle);
- width := cursorPos.X;
- height := cursorPos.Y;
- cursorPos.X := 0;
- cursorPos.Y := 0;
- FillConsoleOutputCharacter(stdOutputHandle, ' ', width*height, cursorPos, nbChars);
- cursorPos.X := 0;
- cursorPos.Y := 0;
- SetConsoleCursorPosition(stdOutputHandle, cursorPos);
- end;
|
|