Delphi-PRAXiS - Delphi Druckerstatus prüfen

Hallo an alle
ich habe da eine wichtige frage.
Wenn ich in einer Schleife aus einem Verzeichnis heraus documente drucke prüfe ich zur sicherheit den Druckerstatus ab um den spooler nicht zu schnell voll zu füllen. An sich möchte ich immer erst das neue dokument drucken wenn das andere fertig ist.
Zu diesem zweck prüfe ich mit "GetNPrinterJobs" die anzahl der dokumente im druckspooler und wenn dieser leer ist druck eich das nächste. Das funktioniert anfänglich ganz gut, doch nach ca. 10-20 drucken kommt es zu eienr Fehlermeldung die filgend lautet.
"Win32-Fehler, Code: 122, Der an einen Systemaufruf übergebene datenbereich ist zu klein !"

Kann mir jemad sagen was ich machen kann, daß dieser feheler nicht mehr auftritt?

danke für eure Hilfe
fredi

Delphi-Quellcode:

			// mainunit

if  GetNPrinterJobs= 0 then

   ShellExecute(Handle, 'printto', PChar(documentname), PChar(S), nil, SW_HIDE); end; 

// diese functionen stehen in der fncunit

function GetNPrinterJobs : Integer;

type

TJobs = array [0..1000] of JOB_INFO_1;

PJobs = ^TJobs;

var

hPrinter: THandle;

bytesNeeded, numJobs, i: Cardinal;

pJ: PJobs;

begin

Result := 0;

hPrinter := GetCurrentPrinterHandle;

  try

  EnumJobs(hPrinter, 0, 1000, 1, nil, 0, bytesNeeded, numJobs);

  pJ := AllocMem(bytesNeeded);

  if not EnumJobs(hPrinter, 0, 1000, 1, pJ, bytesNeeded, bytesNeeded, numJobs) then

    RaiseLastWin32Error;

  Result := numJobs;

  finally

  ClosePrinter(hPrinter);

  end;

  Freemem(Pj);

end;

function GetCurrentPrinterHandle: THandle;

var

Device, Driver, Port : array[0..255] of char;

hDeviceMode: THandle;

begin

Printer.GetPrinter(Device, Driver, Port, hDeviceMode);

if not OpenPrinter(@Device, Result, nil) then

   RaiseLastWin32Error;

end;

[edit=sakura] [delphi]-Tags eingefügt. Mfg, sakura[/edit]