Tachchen,
in D7 is ja folgende Variable in der SystemUnit definiert,
Var ErrOutput: Text;
allerdings ist diese noch nicht unter D4 verfügbar
und ich konnte auch keinen Ersatzt finden. -.-''
Was soll ich denn jetzt machen?
Bräuchte es für diese Zeilen:
Code:
If @F = @[b]ErrOutput[/b] Then F.Handle := [b]GetStdHandle(STD_ERROR_HANDLE)[/b]
Else F.Handle := [b]GetStdHandle(STD_OUTPUT_HANDLE)[/b];
Im Notfall (wenn es nichts gibt) würde ich wohl STD_OUTPUT_HANDLE (ohne Abfrage) verwenden können ... hoff ich mal.
MbD Frank