Die Variante auf SO ist ja ganz nett, allerdings reicht es völlig aus, sich an die Parent-Console dranzuhängen, und wenn das fehlschlägt eine eigene Console zu eröffnen:
Delphi-Quellcode:
uses
Winapi.Windows;
const
ATTACH_PARENT_PROCESS = DWORD( -1 );
function AttachConsole( dwProcessID: DWORD ): Boolean;
stdcall;
external '
kernel32.dll';
if not AttachConsole( ATTACH_PARENT_PROCESS )
and not AllocConsole( )
then
RaiseLastOSError( );
try
Write('
Here I am!');
ReadLn;
finally
FreeConsole();
end;
ABER das ist immer noch nicht dasselbe, als wenn man eine echte Konsolen-Anwendung hat, denn die verhält sich noch ein wenig anders.