Drucker direkt ansteuern

[Joachim Plum]

Hallo,

mit folgender Procedure kann ich ab Delphi 2 den Drucker
direkt ansprechen. Unter Delphi 1 führt dies jedoch zu
Fehler 'Ungültiger Dateiname' bzw. zu 'I/O-Fehler 103'
wenn man dies in einem Try Except Block ausführt.
Wie kann der Drucker in Delphi 1 direkt angesteuert werden?

Vielen Dank
Joachim

procedure TForm1.Button1Click(Sender: TObject);
var
Drucker: TextFile;
begin
AssignFile(Drucker,'LPT1');
Rewrite(Drucker);
Writeln(Drucker,'Test-Druck');
CloseFile(Drucker);
End;

[Bernhard Berger]

In Delphi gibt es inziwschen die <b>AssignPrn</b>-Prozedur (Unit printers) die genau dein Problem löst.<p>
Gruß,<br>
Bernhar