Escribir a la consola desde una app VCL Win32

[TEO127]

Hola amigos, me gustaria saber si alguien conoce alguna forma de escribir a la consola de windows desde una aplicacion VCL Win32.

algo asi como

Writeln('mi mensaje'); //obviamente esto funciona solo para aplicaciones de tipo consola.



Saludos
Teo

[seoane]

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

AllocConsole;

Para escribir utiliza algo como esto:

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:

FreeConsole;

[TEO127]

Seaone gracias por tu respuesta, pero lo que necesito es escribir a la misma consola desde donde ejecuto la aplicacion. Allocconsole crea una nueva consola (o sea me abre otra ventana) lo que yo quiero es que el texto salga en la consola principal (parent).

El escenario es el siguiente, tengo una aplicacion que funciona en forma visual y como consola (al menos eso pretendo). cuando la app detecta que se pasaron parametros (Paramcount) los leo y hago que se comporte como una app de consola mostrando los mensajes de salida en la ventana que origino la ejecucion.

Ahora bien si ejecuto desde la linea de comandos de windows (CMD) mi app con algo asi " myapp.exe -host:finalten.fr.internal -port:7890 -mode:e" usando el allocConsole la app me abre una nueva ventana y ahi me salen los mensajes de texto no en la ventana original como yo quiero.

Espero haberme explicado bien.

Gracias
Saludos

[rruz]

Teo127 lo que tienes que usar es AttachConsole. lo unico malo es que solo funciona con windows XP y superiores.
lo que yo haria seria lo siguiente


uses windows, sysutils;
type
TConsola = function(dwProcessId: Longint): boolean; stdcall;
var
AttachConsole: TConsola;
HConsola : THandle;

function _winxp: boolean;
var
OsVersion: TOsVersionInfo;
begin
OsVersion.dwOsVersionInfoSize := sizeof(OsVersion);
result := false;
if GetVersionEx(OsVersion) then
begin
if OsVersion.dwPlatformId = VER_PLATFORM_WIN32_NT then
result := (OsVersion.dwMajorVersion > 5) or ((OsVersion.dwMajorVersion = 5) and (OsVersion.dwMinorVersion > 0));
end;
end;

function _CreaConsola: boolean;
begin
Result := false;
HConsola := LoadLibrary('KERNEL32.DLL');
if Handle <> 0 then
begin
@AttachConsole := GetProcAddress(HConsola, 'AttachConsole');
if @AttachConsole <> nil then
Result:= AttachConsole(-1);
FreeLibrary(Handle);
end;
end;

begin
if _winxp then
if _CreaConsola then
begin
writeln('Esta es mi consola');
FreeConsole;
end
end.