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

Question

我是新手，在delphi中怎么判断并口无驱打印机是否连接。
这是代码。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;运行时提示privileged instruction。
好像 windowsXP系统不能对I/O直接操作。求助各位大侠，还有别的什么方法么？