Druckeraufträge abfangen

[anzu]

Hallo,

Druckaufträge löschen geht so:

procedure TForm1.dsl;
var
printerhandle: THAndle;
s,i: cardinal;
PrinterDefaults: TPrinterDefaults;
begin
with PrinterDefaults do
begin
DesiredAccess := PRINTER_ACCESS_ADMINISTER;
pDatatype := nil;
pDevMode := nil;
end;
Printer.GetPrinter(Device, Driver, Port, hDeviceMode);
if not OpenPrinter(@Device, printerhandle,@PrinterDefaults) then
RaiseLastWin32Error;
WinSpool.SetPrinter( printerhandle, 0, nil, PRINTER_CONTROL_PAUSE );
WinSpool.SetPrinter( printerhandle, 0, nil, PRINTER_CONTROL_PURGE );
WinSpool.SetPrinter( printerhandle, 0, nil, PRINTER_CONTROL_RESUME );
winspool.closeprinter(printerhandle);
// winspool.AbortPrinter(printerhandle);
end;

Über die Windowsdruckervariable kann man sicher auch die Anzahl Seiten etc. abfragen, ich hab jetzt nicht mehr genauer nachgeschaut.