Delphi实现检测并枚举系统安装的打印机的方法

馒头和小包子

本文以实例说明Delphi打印程序的实现方法。该实例可以检测系统中安装的所有打印机，枚举出这些打印机，主要功能代码非常简单，便于大家阅读与理解。

主要功能代码如下：

unit Unit1;
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;
  procedure Button1Click(Sender: TObject);
  procedure Button2Click(Sender: TObject);
 private
  { Private declarations }
 public
  { Public declarations }
 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('没有安装打印机！');
 end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 Close;
end;

end.

您可能感兴趣的文章:

• delphi7连接mysql5的实现方法
• delphi mysql adbquery数据提供程序或其他服务返回 E_FAIL 状态
• Delphi创建开机启动项的方法示例
• Delphi编程常用快捷键大全
• Delphi实现获取句柄并发送消息的方法
• Delphi实现木马文件传输代码实例
• Delphi实现木马自我拷贝方法
• Delphi实现窗口文字淡入淡出渐变效果的方法
• Delphi实现获取磁盘空间大小的方法
• Delphi实现图像文本旋转特效完整实例代码
• Delphi常用关键字用法详解
• Delphi中对时间操作方法汇总
• Delphi远程连接Mysql的实现方法