下面是个超简单的delphi编程实现检测存在打印机教程,图老师小编精心挑选推荐,大家行行好,多给几个赞吧,小编吐血跪求~
【 tulaoshi.com - 编程语言 】
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://www.tulaoshi.com/bianchengyuyan/)
来源:http://www.tulaoshi.com/n/20160219/1616058.html
看过《delphi编程实现检测存在打印机》的人还看了以下文章 更多>>