用Delphi编程检测打印机状态

时间:2010-01-30 12:19:04  来源:第二电脑网  作者:第二电脑网

  第二电脑网导读:ark="#ffffff" cellpadding="5" width="99%" bgcolor="#e8ffe8" border="1">//从并行端口读取打印机状态function GetPrinterStatus:byte;asm  MOV DX,$379;  IN AL,DX;end;//获取打印机是否出错function CheckPrinter:boolean;vartemp:byte;begin ...
  正文:可用CREATEFILE以PRN为文件名生成一个文件,检测返回值,若成功则打印机可用,否则显示打印机故障。生成关于PRN的文件句柄后,可象普通文件一样向文件写入内容,比如WRITE,写完后关闭文件。

//从并行端口读取打印机状态
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;

"用Delphi编程检测打印机状态"由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Language/Delphi/12665.html


关键字:

关于《用Delphi编程检测打印机状态》文章的评论

站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td