Hi,
es geht darum herauszufinden, ob ein Drucker existiert, bzw. besser gesagt, ob ein Treiber installiert ist.
Delphi-Quellcode:
AssignFile (d,Treibername);
(*$I-*) rewrite (d); (*$I+*)
io := ioresult;
if (io <> 0) then begin
showmessage ('Druckerfehler : '+IntToStr (io)+#10#13+
'Drucker : '+TreiberName+' im System nicht gefunden !'+
'Ausgabe ist in Datei "DRUCKER" umgeleitet !');
So ungefähr hatte ich das vor. Jetzt stellt sich allerdings die Frage, wie Windows einen Drucker von einer Datei unterscheidet. Ist der Drucker nicht da, so wird in dem Beispiel eben einfach eine Textdatei angelegt. Insofern erhalte ich nie einen Fehler.
Jetzt gibt es ja noch AssignPrn. Als Parameter habe ich da jedoch nur TextFile. Woher weiß Windows nun, welcher Drucker gemeint ist ??
Der Name des Druckers kommt aus einer INI - Datei und die Fehlermeldung soll kommen, wenn der Drucker noch nicht installiert ist.