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实现Listbox中的item根据内容显示不同颜色的方法

    Delphi实现Listbox中的item根据内容显示不同颜色的方法

    这篇文章主要介绍了Delphi实现Listbox中的item根据内容显示不同颜色的方法,需要的朋友可以参考下
    2014-07-07
  • Delphi控件ListView的属性及使用方法详解

    Delphi控件ListView的属性及使用方法详解

    这篇文章主要介绍了Delphi控件ListView的属性及使用方法详解,对于Delphi控件ListView做一复习总结,需要的朋友可以参考下
    2014-07-07
  • Delphi实现窗体感知鼠标滑过并自动隐藏与显示窗口的方法

    Delphi实现窗体感知鼠标滑过并自动隐藏与显示窗口的方法

    这篇文章主要介绍了Delphi实现窗体感知鼠标滑过并自动隐藏与显示窗口的方法,涉及Delphi操作窗口及鼠标事件的技巧,需要的朋友可以参考下
    2015-05-05
  • Delphi编程常用快捷键大全

    Delphi编程常用快捷键大全

    这篇文章主要介绍了Delphi编程常用快捷键,对于提高Delphi编程的效率很有帮助,需要的朋友可以参考下
    2014-07-07
  • delphi 正弦曲线图

    delphi 正弦曲线图

     在Delphi中没有直接正弦曲线的函数。但是在科学研究中,正弦曲线的应用是非常广泛的,本实例介绍如何绘制正弦曲线。
    2008-03-03
  • 初探Delphi中的插件编程

    初探Delphi中的插件编程

    前言我写Delphi程序是从MIS系统入门的,开始尝试子系统划分的时候采用的是MDI窗体的结构。随着系统功能的扩充,不断有新的子系统加入系统中,单个工程会变得非常大,每次做一点修改都要重新编译,单个工程的形式也不利于团队协作。为了提高工作效率,我希望利用DLL动态链接库的形式实现插件结构的编程。
    2008-03-03
  • delphi实现保存和读取图片的方法

    delphi实现保存和读取图片的方法

    这篇文章主要介绍了delphi实现保存和读取图片的方法,主要包括了显示图片、保存图片和读取图片的实现方法,是非常实用的技巧,需要的朋友可以参考下
    2014-09-09
  • Delphi实现图像文本旋转特效完整实例代码

    Delphi实现图像文本旋转特效完整实例代码

    这篇文章主要介绍了Delphi实现图像文本旋转特效完整实例代码,对于帮助读者进一步理解Delphi图形及文字特效的处理有一定的借鉴价值,需要的朋友可以参考下
    2014-07-07
  • Delphi 中内存映射对于大文件的使用

    Delphi 中内存映射对于大文件的使用

    这篇文章主要介绍了Delphi 中内存映射对于大文件的使用的相关资料,希望通过本文能帮助到大家,需要的朋友可以参考下
    2017-09-09
  • delphi中一个值得大家来考虑的DLL问题

    delphi中一个值得大家来考虑的DLL问题

    在MDI窗体类型的编程中,主窗体(fsMDIForm)怎样调用子窗体(fsMDIChild,此子窗体为DLL)。
    2008-03-03

最新评论