Delphi實現檢測并枚舉系統(tǒng)安裝的打印機的方法

更新時間：2014年07月29日 09:27:56 投稿：shichen2014

這篇文章主要介紹了Delphi實現檢測并枚舉系統(tǒng)安裝的打印機的方法,需要的朋友可以參考下

本文以實例說明Delphi打印程序的實現方法。該實例可以檢測系統(tǒng)中安裝的所有打印機，枚舉出這些打印機，主要功能代碼非常簡單，便于大家閱讀與理解。

主要功能代碼如下：

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 常見文件處理及注冊表文件的使用實例
這篇文章主要介紹了Delphi 常見文件處理及注冊表文件的使用實例的相關資料,希望通過本文能幫助到大家，需要的朋友可以參考下
2017-09-09
c# 多線程編程入門篇
多線程應該是編程工作者的基礎技能, 但這個基礎對我來講的確有點難(起碼昨天以前是這樣).
2009-04-04
Delphi常用關鍵字用法詳解
這篇文章主要介紹了Delphi常用關鍵字用法,包括了各個常用的關鍵字及其詳細用法,需要的朋友可以參考下
2014-07-07
Delphi實現截屏存盤的方法
這篇文章主要介紹了Delphi實現截屏存盤的方法,涉及Delphi圖片操作的相關技巧,需要的朋友可以參考下
2015-05-05
初探Delphi中的插件編程
前言我寫Delphi程序是從MIS系統(tǒng)入門的，開始嘗試子系統(tǒng)劃分的時候采用的是MDI窗體的結構。隨著系統(tǒng)功能的擴充，不斷有新的子系統(tǒng)加入系統(tǒng)中，單個工程會變得非常大，每次做一點修改都要重新編譯，單個工程的形式也不利于團隊協(xié)作。為了提高工作效率，我希望利用DLL動態(tài)鏈接庫的形式實現插件結構的編程。
2008-03-03
delphi制作wav文件的方法
這篇文章主要介紹了delphi制作wav文件的方法,涉及Delphi操作多媒體文件的相關技巧,需要的朋友可以參考下
2015-06-06
Delphi解析FTP地址的方法
這篇文章主要介紹了Delphi解析FTP地址的方法,涉及Delphi解析FTP的相關技巧,需要的朋友可以參考下
2015-05-05
mybatis in foreach雙層嵌套的問題解決
在使用MyBatis進行數據庫操作時,有時候需要處理雙層嵌套的數據結構,本文主要介紹了mybatis in foreach雙層嵌套的問題解決,具有一定的參考價值,感興趣的可以了解一下
2024-01-01
delphi mysql adbquery數據提供程序或其他服務返回 E_FAIL 狀態(tài)
這篇文章主要介紹了delphi mysql adbquery數據提供程序或其他服務返回 E_FAIL 狀態(tài)的解決方法
2013-11-11