Wie die Error-Ausgabe erstellen im Konsolenprogramm??

[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