Drucker entfernen

[TUX_der_Pinguin]

Hallo DPler,

ich versuche mich gerade an einer Möglichkeit Drucker aus einer eigenen Anwendung heraus zu entfernen. Ich habe da auf Delphi-Treff etwas passendes gefunden, jedoch funktioniert das nicht.

Delphi-Quellcode:

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;

Auflistung aller Drucker im System

Delphi-Quellcode:

procedure TForm2.FormCreate(Sender: TObject);
var
  Index: Integer;
  
begin
  for Index := 0 to Printer.Printers.Count-1 do
  begin
    ListBox1.Items.Add(Printer.Printers[Index]);
  end;
    
end;

Drucker entfernen

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
begin
  if RemovePrinter(ListBox1.Items[ListBox1.ItemIndex]) then
    ShowMessage('Ok')
  else
    ShowMessage('Failed');
end;

Merkwürdig ist das beim ersten Versuch die Funktion einen Erfolg meldet, der Drucker bleibt aber im System erhalten, danach schlägt der jeder erneute Aufruf fehl. Probiert habe ich das ganze unter Windows 7, später soll die Software aber hauptsächlich unter Windows 10 laufen.

[bra]

Versuche mal, ob der Drucker verschwindet, wenn du die Druckerwarteschlange neustartest.

[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;

[TUX_der_Pinguin]

Zitat von bra:

Versuche mal, ob der Drucker verschwindet, wenn du die Druckerwarteschlange neustartest.

Ich weiß zwar nicht wie ich das aus dem Programm heraus machen soll aber ich habe auch mal den Rechner komplett neugestartet und alle Drucker waren noch vorhanden. Wird ja wohl kaum eine zeitliche Begrenzung sein, dass der Drucker nur zum löschen markiert wird und wird innerhalb von X Sekunden/Minuten die Druckerwarteschlange neugestartet dann wird der Drucker tatsächlich gelöscht.

[TUX_der_Pinguin]

Zitat von 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;

Es schlägt DeletePrinter() fehl und nicht OpenPrinter() mit der Fehlermeldung ..

Zitat:

Systemfehler. Code: 1801.
Der Druckername ist unzulässig.

Eigentlich müsste ja OpenPrinter fehlschlagen tut es aber nicht und zu allem überfluss ist der Drucker immer noch vorhanden.

[himitsu]

Was genau willst du eigentlich löschen, bzw. was soll dadurch erreicht werden?

Zitat:

The DeletePrinter function deletes the specified printer object.

Hmmm, DeletePrinter löscht nicht den Printer, also den Treiber,
sondern nur eines der "vielen" Schnittstellenobjekte.

DeletePrinter ist nur die Umkehrfunktion vom AddPrinter.
https://msdn.microsoft.com/de-de/lib...(v=vs.85).aspx

[TUX_der_Pinguin]

Zitat von himitsu:

Was genau willst du eigentlich löschen, bzw. was soll dadurch erreicht werden?

Zitat:

The DeletePrinter function deletes the specified printer object.

Hmmm, DeletePrinter löscht nicht den Printer, also den Treiber,
sondern nur eines der "vielen" Schnittstellenobjekte.

DeletePrinter ist nur die Umkehrfunktion vom AddPrinter.
https://msdn.microsoft.com/de-de/lib...(v=vs.85).aspx

Das nur das Objekt gelöscht wird habe ich übersehen bzw. es stand nicht dabei wo ich das Beispiel gefunden habe. Ich will eigentlich einen Drucker aus dem System entfernen.

[himitsu]

https://msdn.microsoft.com/en-us/lib...(v=vs.85).aspx
vermutlich DeletePrintDriver

[TUX_der_Pinguin]

Zitat von himitsu:

https://msdn.microsoft.com/en-us/lib...(v=vs.85).aspx
vermutlich DeletePrintDriver

Zitat:

The DeletePrinterDriver function removes the specified printer-driver name from the list of names of supported drivers on a server.
...
DeletePrinterDriver deletes a driver only if no version of the driver is in use for the specified environment. DeletePrinterDriverEx can delete specific versions of the driver.

Vielleicht ist mein Englisch zu schlecht aber das liest sich jetzt auch nicht unbedingt so als würde man damit einen Drucker entfernen können. Werde dann wohl erst mal aufgeben und es dabei belassen.

[Sherlock]

Naja, mehr als den Treiber wirst Du in Software niemals los werden können, es sei denn Du steuerst damit eine Strahlenkanone oder so.

Sherlock