打印的API函数EnumJobs为什么不能用?(50分)

  • 主题发起人 主题发起人 yanliang
  • 开始时间 开始时间
Y

yanliang

Unregistered / Unconfirmed
GUEST, unregistred user!
我想用一个打印API函数取得打印队列中的数据。程序如下:(来源于《Delphi 5编程实例与技巧》)
var
LPHANDLE:THANDLE;
LPStrBuffer:array [0..255] of char;
NoJobs:word;
s:longword;
Job_Info:array[0..10] of JOB_INFO_1;
cbNeeded:Cardinal;
cReturned:Cardinal;
ret:LongBool;
i:integer;
begin
s:=sizeof(Job_Info);
cbNeeded:=0;
cReturned:=0;
NoJobs:=10;
ret:=EnumJobs(LPHandle,
0,
1,
@Job_Info,
s,
cbNeeded,
cReturned);
memo1.Lines.Add('共有打印任务:'+intToStr(cReturned)+'个。');
for i:=0 to cReturned-1do
memo1.Lines.Add('第'+intToStr(i+1)+'个打印任务有'+
intToStr(Job_Info.TotalPags)+'页。');
end;
编译的时候首先提示JOB_INFO_1没有定义,然后有提示EnumJobs没有定义,
请问各位为什么会出现这样的提示?
 
uses里加
WinSpool
-----
http://www.8421.org
 
后退
顶部