Drucker entfernen

[himitsu]

Zitat von TUX_der_Pinguin:

Merkwürdig ...

Die Frage wäre ja, was beim zweiten Mal fehl schlägt ... OpenPrinter oder DeletePrinter.
Vermutlich OpenPrinter, weil der Printer ja gelöscht ist.


Aber ein Boolean sagt ja nun überhaupt nichts darüber aus, was nicht ging und vorallem warum es nicht gin.

Delphi-Quellcode:

procedure PE_DeletePrinterNow(PrinterName: string);
var
  hPrinter : Cardinal;
  PrinterDef: PRINTER_DEFAULTS;
begin
  FillChar(PrinterDef, SizeOf(PrinterDef), #0);
  PrinterDef.DesiredAccess := PRINTER_ALL_ACCESS;
  if not OpenPrinter(PChar(PrinterName), hPrinter, @PrinterDef) then
    RaiseLastOSError;
  try
    if not DeletePrinter(hPrinter) then
      RaiseLastOSError;
  finally
    ClosePrinter(hPrinter);
  end;
end;