delphi编程实现检测存在打印机

愤怒的草尼玛5

愤怒的草尼玛5

2016-02-19 17:47

下面是个超简单的delphi编程实现检测存在打印机教程,图老师小编精心挑选推荐,大家行行好,多给几个赞吧,小编吐血跪求~

  Printers是专门用来控制打印机的,可是在没有安装打印机时,却会提示I/O错误,所以必须有一个检测是否存在打印机的方法,我试过很多方法,可是I/O错误总是比我的判断早出现,所以采用以下的烂招来检测打印机。首先在uses增加Printers,再准备一个列表框ComboBox1,其属性Visible设为FALSE,然后在打印之前执行下列语句,那么就可以检测到是否存在打印机了:

  

procedure TForm1.ButtonClick(Sender: TObject);beginComboBox1.Clear;ComboBox1.Items.Assign(Printer.Printers);if ComboBox1.Items.CommaText= thenMessagedlg(你需要安装打印机才能打印!,mtError,[mbOk],0);elseForm1.Print;end;

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/bianchengyuyan/)
展开更多 50%)
分享

猜你喜欢

delphi编程实现检测存在打印机

编程语言 网络编程
delphi编程实现检测存在打印机

delphi编程实现检测声卡存在

编程语言 网络编程
delphi编程实现检测声卡存在

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

XP用户实现打印机共享

打印机共享 电脑入门
XP用户实现打印机共享

打印机共享设置教程 打印机怎么设置共享

打印机 电脑
打印机共享设置教程  打印机怎么设置共享

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

怎么安装虚拟打印机,虚拟打印机安装方法

电脑入门
怎么安装虚拟打印机,虚拟打印机安装方法

怎样安装打印机?

打印机 电脑入门
怎样安装打印机?

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

最新DIV+CSS技术入门

最新DIV+CSS技术入门

我是你的过往云烟 - QQ伤感分组

我是你的过往云烟 - QQ伤感分组
下拉加载更多内容 ↓