Escribir a la consola desde una app VCL Win32

[[seoane]]

Para escribir en la consola primero vas a tener que crear una consola

Código Delphi [-]
  AllocConsole;

Para escribir utiliza algo como esto:

Código Delphi [-]
procedure Escribir(Str: string);
var
  StdOut: THandle;
begin
  StdError:= GetStdHandle(STD_OUT_HANDLE);
  if (StdOut <> STD_ERROR_HANDLE) and (StdOut <> 0) then
  begin
    FileWrite(StdOut,PChar(Str + #13#10)^,Length(Str)+2);
  end;
end;

// Por ejemplo
Escribir('Hola mundo');

Y no te olvides de destruir la consola cunado ya no la necesites:

Código Delphi [-]
FreeConsole;