在delphi中如何判断并口无驱打印机是否连接

显示全部楼层 · 2021-1-27 07:04:29

我是新手，在delphi中怎么判断并口无驱打印机是否连接。
这是代码。
functionGetPrinterStatus:byte;
asm
MOVDX,$379;
INAL,DX;
end;
//获取打印机是否出错
functionCheckPrinter:boolean;
vartemp:byte;
begin
temp:=GetPrinterStatus;
Result:=not(((tempand$80)=0)//打印机忙
or((tempand$20)0)//打印机缺纸
or((tempand$10)=0)//打印机未联机
or((tempand$08)=0));//打印机出错;
end;
运行时提示privilegedinstruction。
好像windowsXP系统不能对I/O直接操作。
求助各位大侠，还有别的什么方法么？

分 -->

千问 · 2021-1-27 07:04:29

在线等，着急