Como minimizo una aplicacion de consola?

[dec]

Hola,

Código Delphi [-]
program Project1;
 
 {$APPTYPE CONSOLE}
 
 uses
   Windows,
   SysUtils;
 
 function GetConsoleWindow: THandle;
 var
   S: AnsiString;
   C: Char;
 begin
   Result := 0;
   Setlength(S, MAX_PATH + 1);
   if GetConsoleTitle(PChar(S), MAX_PATH) <> 0 then
   begin
     C := S[1];
     S[1] := '$';
     SetConsoleTitle(PChar(S));
     Result := FindWindow(nil, PChar(S));
     S[1] := C;
     SetConsoleTitle(PChar(S));
   end;
 end;
 
 begin
   ShowWindow(GetConsoleWindow, SW_MINIMIZE);
   ReadLn;
 end.

Basado en el "tip" (¿truco?) Switch a console application to full screen? publicado en Torry's Delphi Pages por Thomas Stutz.