Wie die Error-Ausgabe erstellen im Konsolenprogramm??

[Kedariodakon]

Zitat von Motzi:

IMHO sollte das so gehn...
WriteLn(ErrOutput, 'Test');

Das Funzt

Zitat von Marcel Gascoyne:

Du musst das Handle von stderr ermitteln und Deiner Ausgabedatei entsprechend zuweisen:

Delphi-Quellcode:

program test_stderr;

{$APPTYPE CONSOLE}

uses
  Windows, SysUtils;

var
  stderr: TextFile;
  handle: Integer;

begin
  AssignFile(stderr,'CONOUT$');
  ReWrite(stderr);
  handle := TTextRec(stderr).Handle;
  TTextRec(stderr).Handle := Integer(GetStdHandle(STD_ERROR_HANDLE));
  WriteLn('Dies geht nach stdout');
  WriteLn(stderr,'Dies geht nach stderr');
  TTextRec(stderr).Handle := handle;
  CloseFile(stderr);
end.

Gruß,
Marcel

Das sieht komplizierter aus
Aber ich werd es mir mal anschaun...

Gibt es den Situationen, wo Motzi's Version nicht geht und ich lieber Marcel Gascoyne's nehmen sollte?

Werden die Konsolenausgaben als Textdadei behandelt?
Da bin ich noch nicht ganz hinter gestiegen...

Bye

Edit1: In welcher *.pas finde ich die SDK Function GetStdHandle
Edit2: In der Windows.pas, wer lesen kann ist klar im Vorteil...