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.
相关文章
本文为大家详细介绍下delphi判断程序30秒没有键盘和鼠标动作,这里给timer设置了1000ms)的参数，表示30秒的间隔，具体实现如下，感兴趣的朋友可以参考下哈2013-06-06
这篇文章主要介绍了Delphi中对时间操作方法汇总,可以对Delphi的时间操作有一个更加深入的了解,需要的朋友可以参考下2014-07-07
Delphi实现Listbox中的item根据内容显示不同颜色的方法
这篇文章主要介绍了Delphi实现Listbox中的item根据内容显示不同颜色的方法,需要的朋友可以参考下2014-07-07
这篇文章主要介绍了Delphi 根据字符串找到函数并执行的实例的相关资料,希望通过本能帮助到大家实现这样的功能，需要的朋友可以参考下2017-09-09
最近打算学习Delphi实现在数据库中存取图像,网上的好多Delphi实现在数据库中存取图像都是错误的，所以我把图片给弄好了。2008-01-01
这篇文章主要介绍了Delphi之Pascal语言中的关键字及保留字汇总,需要的朋友可以参考下2014-07-07
Java中CountDownLatch和CyclicBarrier的区别与详解
CountDownLatch和CyclicBarrier是Java并发包提供的两个非常易用的线程同步工具类,本文主要介绍了Java中CountDownLatch和CyclicBarrier的区别与详解,具有一定的参考价值,感兴趣的可以了解一下2023-11-11
最近学习模式入迷， 所以就想写一篇关于模式的文章，这篇文章是<<Java 与模式>> （阎宏 著）里的一个例子， 我把它改成Delphi的.第一次写东西， 有不足之处希望大家可以谅解.2008-03-03
这篇文章主要为大家详细介绍了Delphi菜单组件TMainMenu的使用方法，具有一定的参考价值，感兴趣的小伙伴们可以参考一下2017-11-11
这篇文章主要介绍了TImage组件实现保存图片到Stream以及从stream中读取图片的方法，非常的实用，有需要的小伙伴可以参考下2016-05-05
最新评论