delphi中如何判断打印机是否安装
来源:互联网 发布:湖南软件企业评估 编辑:程序博客网 时间:2024/05/21 06:42
uses Printers;
procedure TForm1.Button1Click(Sender: TObject);
begin
if Printer.Printers.Count <= 0 then
{ 没有安装 };
end;
Top
function GetPrinterStatus:byte;
asm
MOV DX,$379;
IN AL,DX;
end;
//获取打印机是否出错
function CheckPrinter:boolean;
var
temp:byte;
begin
temp:=GetPrinterStatus;
Result:=not ( ((temp and $80)=0) //打印机忙
or ((temp and $20)<>0) //打印机缺纸
or ((temp and $10)=0) //打印机未联机
or ((temp and $08)=0) ); //打印机出错;
end
procedure TForm1.Button1Click(Sender: TObject);
begin
if Printer.Printers.Count <= 0 then
{ 没有安装 };
end;
Top
function GetPrinterStatus:byte;
asm
MOV DX,$379;
IN AL,DX;
end;
//获取打印机是否出错
function CheckPrinter:boolean;
var
temp:byte;
begin
temp:=GetPrinterStatus;
Result:=not ( ((temp and $80)=0) //打印机忙
or ((temp and $20)<>0) //打印机缺纸
or ((temp and $10)=0) //打印机未联机
or ((temp and $08)=0) ); //打印机出错;
end
0 0
- delphi中如何判断打印机是否安装
- delphi判断电脑是否安装了excel
- delphi判断.net FrameWork是否已安装
- delphi中判断字符串是否为数字
- 如何判断系统中是否安装了某种字体
- IOS中如何判断程序是否是第一次安装使用
- Android开发中如何判断是否安装了某个程序
- IOS中如何判断程序是否是第一次安装使用
- C#判断打印机是否可用
- C# 检测 是否 安装打印机
- Delphi 中如何安装组件?
- 在delphi中如何判断线程终止
- delphi中如何判断是不是数字
- delphi 判断SQL Server 服务器是否安装与开启
- delphi 判断SQL Server 服务器是否安装与开启
- delphi 判断SQL Server 服务器是否安装与开启
- 如何安装虚拟打印机
- 如何安装PDF打印机
- ATM自动取款机
- 寂寞人生的家庭日天津的金融
- Container With Most Water --装最多水的容器(重)
- Myeclipse 2013 professional破解
- test1
- delphi中如何判断打印机是否安装
- 虚拟化技术(应用程序虚拟化)(读书笔记)
- 记录《C/C++100个典型的Bugs》网址
- HDOJ 猜数字(java)
- mysql Last packet sent to the server was 0 ms ago.
- 用游标删除符合条件的表 可以清空该数据库下所有表
- 解决ubuntu下面putty不能连接RS232串口(USB2COM线)
- 项目构建之maven篇:8.maven发布web工程及基于spring mvc,jetty实现的用户管理demo
- 支付宝处理结果异常