X
xuming
Unregistered / Unconfirmed
GUEST, unregistred user!
var
Jobs: array[FirstJob..LastJob] of TJobInfo1;
PrinterHandle :thandle;
BytesNeededWORD;
NumJobs: dword;
begin
if EnumJobs(PrinterHandle, FirstJob, LastJob + 1, InfoLevel, @Jobs, SizeOf(Jobs),BytesNeeded,NumJobs) then
//编译时,这句出现错误:Types of actual and formal var parameters must be identical
如何修改程序?
........
end;
Jobs: array[FirstJob..LastJob] of TJobInfo1;
PrinterHandle :thandle;
BytesNeededWORD;
NumJobs: dword;
begin
if EnumJobs(PrinterHandle, FirstJob, LastJob + 1, InfoLevel, @Jobs, SizeOf(Jobs),BytesNeeded,NumJobs) then
//编译时,这句出现错误:Types of actual and formal var parameters must be identical
如何修改程序?
........
end;