formato de pantalla

[[cHackAll]]

Código Delphi [-]
program MuchOjO;
 
uses Windows;
 
function SetConsoleDisplayMode(hConsoleOutput, dwFlags: Cardinal; lpNewScreenBufferDimensions: PCOORD): LongBool; stdcall external 'kernel32';
function GetConsoleWindow: Cardinal; stdcall external 'kernel32';
 
var hOutput: Cardinal;
begin
 AllocConsole;
 SetForegroundWindow(GetConsoleWindow);
 hOutput := GetStdHandle(STD_OUTPUT_HANDLE);
 SetConsoleDisplayMode(hOutput, 1{CONSOLE_FULLSCREEN_MODE}, nil);
 
 WriteLn('Sper0 k no c-a pa mal !');
 ReadLn;
end.