检测并枚举系统安装的打印机代码,Delphi代码库,德仔网

代码语言

代码分类

【Delphi】检测并枚举系统安装的打印机

作者:秀清 / 发布于2015/5/13/ 1366

本文以实例说明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.

试试其它关键字

　打印机　

同语言下

可能有用的

秀清贡献的其它代码(25)