Datei auf LPT1: Drucken

[PiT123]

das ganze geht über den Windows Druckertreiber , wird also formatiert und der Drucker druckt es aus..
Ich suche ein möglchkeit das txt file direckt zum drucker zu senden.
Hier mal der Inhalt der TXT datei " %-12345X@PJL LBEEP%-12345X " wobei =Chr27 (ESC) ist.
Diese soll den Drucker ein Beep entlocken.



gibt es keine funktion wo man cmd aufruft um eine datei auf LPT1 kopieren kann ?



Habe eine Lösung gefunden

ShellExecute(application.Handle,'open','cmd.exe',('/c copy test.txt lpt1'),nil ,sw_minimize); funzt ....

nur möchte ich jetzt noch eine ausgabe Capturen und dafür Edit1.text und Edit2.text verwenden.

ShellExecute(application.Handle,'open','cmd.exe',('/c net use LPT1 \\(edit1.text) \(Edit2.Text)'),nil ,sw_minimize); im DOS sieht das dann so aus " net use LPT1 \\Rechnername\Freigabename" nur funzt da so natürlich nicht, hat jemand ne idee ???