获取打印机状态的问题

Question

var
pinfo: pPRINTERINFO2;
  pprt,a: Cardinal;
  b:PDWORD;
begin
  b:=allocmem(256);
  pinfo:=AllocMem(1000);
  if OpenPrinter('\\10.149.100.55\11',pprt,nil) then
  begin
    a:=1000;
    showmessage(pinfo.pPrinterName+' ststus:'+inttostr(pinfo.Status));    if Winspool.GetPrinter(pprt,2,pinfo,a,b) then
      begin
      showmessage(pinfo.pPrinterName+' ststus:'+inttostr(pinfo.Status));
      end;  ClosePrinter(pprt);
  end;  freemem(b);
  freemem(pinfo);
end;
为什么答案状态总是:0
请高手解决：我想知道这台打印机是否可用，（前提这台打印机存在，可能是没有共享）

Answer 1

难道就没有一个高手肯愿意帮忙解决吗？？？？