Änderungen an Druckeren erkennen (neu, gelöscht)

[BlueStarHH]

Zitat:

Zitat von himitsu (Beitrag 1524872)

Wozu ein Thread?

• außerdem ist das globale Printer-Objekt nicht threadsave und auch durch die GDI an den Hauptthread gebunden

Ich glaube im dem Beitrag #9 oben, geht es *nicht* um das globale Printer-Objekt. Sondern um FindNextPrinterChangeNotification. Das möchte man ja nicht pollen sondern per WaitForSingleObject auf Änderungen warten. Das ist nur sinnvoll in einem Thread. Ich werde das mal antesten.

[BlueStarHH]

Zitat:

Zitat von KodeZwerg (Beitrag 1524787)

Wie wäre es mit WM_SETTINGCHANGE? Das Ereignis sollte glaube ich immer gefeuert werden und hier zeig ich wie Du den aktuellen Basis-Druckernamen bekommen könntest:

Delphi-Quellcode:

uses ...Vcl.Printers...

...
    procedure WMSettingChange(var Message: TMessage); message WM_SETTINGCHANGE;
...

implementation

procedure TForm12.WMSettingChange(var Message: TMessage);
begin
  Printer.PrinterIndex := -1;
  Label1.Caption := Printer.Printers[Printer.PrinterIndex];
end;

Hilft das?

Das wird nur ausgelößt, wenn der Standarddrucker geändert wird oder wenn ein neuer Drucker hinzukommt. Aber NICHT wenn ein Drucker gelöscht wird!