บทความนี้จะอธิบายวิธีการใช้งานโปรแกรมการพิมพ์ Delphi พร้อมตัวอย่าง ตัวอย่างนี้สามารถตรวจจับเครื่องพิมพ์ทั้งหมดที่ติดตั้งในระบบและระบุรหัสฟังก์ชันหลักนั้นง่ายและสะดวกสำหรับทุกคนในการอ่านและทำความเข้าใจ
รหัสฟังก์ชั่นหลักมีดังนี้:
หน่วย Unit1; อินเทอร์เฟซ Windows, ข้อความ, SysUtils, ตัวแปร, คลาส, กราฟิก, การควบคุม, แบบฟอร์ม, กล่องโต้ตอบ, StdCtrls, เครื่องพิมพ์, XPMan; พิมพ์ TForm1 = class (TForm) Button1: TGroupBox; Memo1: TMemo; ; ขั้นตอน Button1Click (ผู้ส่ง: TObject); Button2Click(Sender: TObject); ส่วนตัว { ประกาศส่วนตัว } สาธารณะ { ประกาศสาธารณะ } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);begin Memo1.Clear; .Assign(Printer.Printers); ถ้า trim(memo1.Text) = '' ให้เริ่ม showmessage('ไม่ได้ติดตั้งเครื่องพิมพ์!'); end;end;ขั้นตอน TForm1.Button2Click(Sender: TObject);begin Close;end;end.