如何判断打印机缺纸

Question

大家好：
    我的机器软件配置是：win2k+delphi6.0。我想在程序中判断打印机的状态，如打印机是否缺纸。但不知怎么办，原来发过同样的一个帖子，一个网友用汇编做了一段程序，但怎样调试都通不过。大家能不能不用汇编的方法来实现这个任务。
                                   
     王振亚
   2004.03.18

Answer 1

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