Prüfen ob Drucker vorhanden ist und Drucker in Liste setzen

[Äfan]

Hi,

Ich will in meinem Editor einen eigenen Drucken Dialog machen. Wie kann man rausbekommen ob ein Drucker angeschlossen ist, und wie kann man in einer Liste, die vorhandenen Drucker anzeigen ?

MFG

[Muetze1]

Moin!

Schau dir mal in der Hilfe die Funktion Printers an und den von ihr zurück gegebenen Typ TPrinters.

MfG
Muetze1

[Sharky]

Zitat von Äfan:

... Wie kann man rausbekommen ob ein Drucker angeschlossen ist,....

Ob ein Drucker angeschlossen ist wirst Du wohl kaum erkennen können.

[Torpedo]

Delphi-Quellcode:

uses printers;

...


begin
for i := 0 to Printer.Printers.Count - 1 do
ListBox1.Items.Add(printer.Printers[i]);
...

Edit: Unwichtige Dinge rausgenommen.

[Muetze1]

Moin!

Warum so umständlich?

Delphi-Quellcode:

uses printers;

...


begin

    // entweder:
  ListBox1.Items := Printer.Printers;

    // oder:
  ListBox1.Items.AddStrings(Printer.Printers);

    // oder:
  ListBox1.Items.Assign(Printer.Printers);
...

MfG
Muetze1