Dieser Artikel veranschaulicht die Implementierungsmethode des Delphi-Druckprogramms anhand von Beispielen. Dieses Beispiel kann alle im System installierten Drucker erkennen und diese Drucker auflisten. Der Hauptfunktionscode ist sehr einfach und für jeden leicht zu lesen und zu verstehen.
Die Hauptfunktionscodes lauten wie folgt:
Unit Unit1;verwendet Windows, Nachrichten, SysUtils, Steuerelemente, Formulare, StdCtrls, Drucker, XPMan;Typ TForm1 = Klasse(TForm) Button1: TGroupBox; Memo1: TMemo; Button2: TButton ; procedure Button1Click(Sender: TObject procedure); Button2Click(Sender: TObject); private { Private Deklarationen } public { Öffentliche Deklarationen } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);begin Memo1.Clear; memo1.Lines .Assign(Printer.Printers); if trim(memo1.Text) = '' then begin showmessage('Kein Drucker installiert!'); end;end;procedure TForm1.Button2Click(Sender: TObject);begin Close;end;end.