快捷導(dǎo)航

Delphi實(shí)現(xiàn)檢測并枚舉系統(tǒng)安裝的打印機(jī)的方法

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

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

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

主要功能代碼如下：

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('沒有安裝打印機(jī)！');
 end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 Close;
end;

end.

您可能感興趣的文章:

相關(guān)文章

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