Ver Mensaje Individual
  #6  
Antiguo 22-10-2008
Avatar de cHackAll
[cHackAll] cHackAll is offline
Baneado?
 
Registrado: oct 2006
Posts: 2.159
Reputación: 22
cHackAll Va por buen camino
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.
__________________
RTFM > STFW > Foro > Truco > Post > cHackAll > KeBugCheckEx
Responder Con Cita