Delphi实现检测并枚举系统安装的打印机的方法
本文以实例说明Delphi打印程序的实现方法。该实例可以检测系统中安装的所有打印机，枚举出这些打印机，主要功能代码非常简单，便于大家阅读与理解。
主要功能代码如下：
unitUnit1;
interface
uses
Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,
Dialogs,StdCtrls,Printers,XPMan;
type
TForm1=class(TForm)
Button1:TButton;
GroupBox1:TGroupBox;
Memo1:TMemo;
Button2:TButton;
procedureButton1Click(Sender:TObject);
procedureButton2Click(Sender:TObject);
private
{Privatedeclarations}
public
{Publicdeclarations}
end;
var
Form1:TForm1;
implementation
{$R*.dfm}
procedureTForm1.Button1Click(Sender:TObject);
begin
Memo1.Clear;
memo1.Lines.Assign(Printer.Printers);
iftrim(memo1.Text)=''then
begin
showmessage('没有安装打印机！');
end;
end;
procedureTForm1.Button2Click(Sender:TObject);
begin
Close;
end;
end.