如何判断当前选择的打印机的状态(50分)

如何判断当前选择的打印机的状态是准备就绪还是无法连接

HUBDOG的方案,不知可不可行
var
pinfo: pPRINTERINFO2;
pprt,a: Cardinal;
bDWORD;
begin

b:=allocmem(256);
pinfo:=AllocMem(1000);
if OpenPrinter('HP DJ 200',pprt,nil) then

begin

a:=1000;
if getprinter(pprt,2,pinfo,a,b) then

showmessage(pinfo.pPrinterName+' ststus:'+inttostr(pinfo.Status));
ClosePrinter(pprt);
end;

freemem(b);
freemem(pinfo);
end;