打印任务取消问题? 急!
procedure TForm1.Button1Click(Sender: TObject);
var
hPrinter: Cardinal;
pInfo: array of JOB_INFO_1;
Needed, count,: Cardinal;
begin
SetLength(pInfo, 200);
if OpenPrinter( 'KHPrinter ',hPrinter,nil) then
begin
EnumJobs(hPrinter,0,1,1,@pInfo,186, Needed, count);
SetJob(hPrinter,2,0,0,JOB_CONTROL_DELETE);//这里的2是jobid
ClosePrinter(hPrinter);
end;
为什么一直提示 Access violation at address 00404E44 in module 'Project1.exe ' ? 是不是这句话EnumJobs(hPrinter,0,1,1,@pInfo,186, Needed, count);有问题？
[解决办法]
//EnumJobs 的使用参考这里
http://www.swissdelphicenter.ch/torry/showcode.php?id=764
[解决办法]
pInfo的内存空间有没有分配？？？
