这个关于打印机状态的API该怎样使用?(100分)

Z

zhangwq

Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.Button1Click(Sender: TObject);
var
pinfo:^PRINTER_INFO_2;
pprt,a: Cardinal;
b:pDWORD;
begin

b:=AllocMem(256);
pinfo:=AllocMem(1000);
if OpenPrinter('myPrinter',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;

procedure TForm1.Button2Click(Sender: TObject);
begin

close;
end;

不论打印机是否联机,返回的状态都不变。为什么这个API不起作用?
 
我没确认,好象是lever不对吧
 
lever怎样用,如何才能对.能说清楚些吗?
 
好象是openPrinter的参数用错了
 
好像这个 API 只对 并口打印机有用,

USB 的不行。
 

Similar threads

I
回复
0
查看
2K
import
I
I
回复
0
查看
865
import
I
I
回复
0
查看
485
import
I
I
回复
0
查看
610
import
I
顶部