Delphi实现检测并枚举系统安装的打印机的方法
更新时间：2014年07月29日 09:27:56 投稿：shichen2014
这篇文章主要介绍了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.
相关文章
wordpress主题支持自定义菜单及修改css样式实现方法
使用wordpress过程中会遇到主题支持自定义菜单以及修改css样式问题，本文将介绍详细解决方法，需要朋友可以参考下2012-12-12
这篇文章主要介绍了Delphi 常见文件处理及注册表文件的使用实例的相关资料,希望通过本文能帮助到大家，需要的朋友可以参考下2017-09-09
多线程应该是编程工作者的基础技能, 但这个基础对我来讲的确有点难(起码昨天以前是这样).2009-04-04
这篇文章主要介绍了Delphi常用关键字用法,包括了各个常用的关键字及其详细用法,需要的朋友可以参考下2014-07-07
这篇文章主要介绍了Delphi实现截屏存盘的方法,涉及Delphi图片操作的相关技巧,需要的朋友可以参考下2015-05-05
前言我写Delphi程序是从MIS系统入门的，开始尝试子系统划分的时候采用的是MDI窗体的结构。随着系统功能的扩充，不断有新的子系统加入系统中，单个工程会变得非常大，每次做一点修改都要重新编译，单个工程的形式也不利于团队协作。为了提高工作效率，我希望利用DLL动态链接库的形式实现插件结构的编程。2008-03-03
这篇文章主要介绍了delphi制作wav文件的方法,涉及Delphi操作多媒体文件的相关技巧,需要的朋友可以参考下2015-06-06
这篇文章主要介绍了Delphi解析FTP地址的方法,涉及Delphi解析FTP的相关技巧,需要的朋友可以参考下2015-05-05
在使用MyBatis进行数据库操作时,有时候需要处理双层嵌套的数据结构,本文主要介绍了mybatis in foreach双层嵌套的问题解决,具有一定的参考价值,感兴趣的可以了解一下2024-01-01
delphi mysql adbquery数据提供程序或其他服务返回 E_FAIL 状态
这篇文章主要介绍了delphi mysql adbquery数据提供程序或其他服务返回 E_FAIL 状态的解决方法2013-11-11
最新评论