طريقة دلفي لكشف وتعداد الطابعات المثبتة على النظام

توضح هذه المقالة طريقة تنفيذ برنامج طباعة دلفي مع الأمثلة. يمكن لهذا المثال اكتشاف جميع الطابعات المثبتة في النظام وتعداد هذه الطابعات. رمز الوظيفة الرئيسية بسيط جدًا وسهل القراءة والفهم للجميع.

رموز الوظيفة الرئيسية هي كما يلي:

 وحدة Unit1؛ تستخدم واجهات Windows، والرسائل، وSysUtils، والمتغيرات، والفئات، والرسومات، وعناصر التحكم، والنماذج، ومربعات الحوار، وStdCtrls، والطابعات، وXPMan؛ ؛ الإجراء Button1Click(Sender: TObject); Button2Click(Sender: TObject); القطاع الخاص { الإعلانات الخاصة } public { الإعلانات العامة } end;var Form1: TForm1;implementation{$R *.dfm} الإجراء TForm1.Button1Click(Sender: TObject);begin Memo1.Clear; .Assign(Printer.Printers); إذا كان تقليم(memo1.Text) = '' ثم يبدأ showmessage('لم يتم تثبيت طابعة!');end;end;إجراء TForm1.Button2Click(Sender: TObject);begin Close;end;end.