Drucker entfernen

function PE_DeletePrinterNow(pPrinterName: PChar):BOOL;
var
hPrinter  : Cardinal;
PrinterDef: PRINTER_DEFAULTS;
begin
  Result := FALSE;

   FillChar(PrinterDef, sizeof(PrinterDef), #0);
   PrinterDef.DesiredAccess := PRINTER_ALL_ACCESS;

   if OpenPrinter(pPrinterName, hPrinter, @PrinterDef) then
   begin
    if DeletePrinter(hPrinter) then Result := TRUE;
    ClosePrinter(hPrinter);
   end;
end;