Wie Wallpaper wechsel mitbekommen ?

[turboPASCAL]

Hi,

wie kann man mitbekommen ob sich der Desktop-Wallpaper geändert hat ?

[Popov]

Meinst du jetzt Message? Der Pfad ist in der Registry und ist einfach zu ermitteln. Also ob es dafür eine Message gibt, weiß ich nicht, aber alle paar Sekunden den Pfad vergleichen wäre die einfachste Methoden.

HKEY_CURRENT_USER\Control Panel\Desktop\ >> Wallpaper

[DeddyH]

Nur ein Gedanke: wenn ich den Artikel zu SystemParametersInfo richtig verstanden habe, wird (oder kann zumindest) ein Aufruf von WM_SETTINGCHANGE an alle Top-Level-Windows erfolgen. Wäre zumindest ein Ansatz, den man mal verfolgen könnte ;)

[toms]

Delphi-Quellcode:

private
  procedure WMSettingChange(var Msg : TMessage); message WM_SETTINGCHANGE;
end;

implementation

procedure TForm1.WMSettingChange(var Msg : TMessage);
begin
  if Msg.WParam = SPI_SETDESKWALLPAPER then
    Caption := 'Das Desktop-Wallpaper hat sich geändert!';
end;

[turboPASCAL]

Zitat:

Meinst du jetzt Message?

Ja, natürlich. Warum hab ich das denn nicht dazu geschrieben ? :gruebel:
Man(n) wird alt...

Zitat:

Zitat von toms

Delphi-Quellcode:

//...

procedure TForm1.WMSettingChange(var Msg : TMessage);
begin
  if Msg.WParam = SPI_SETDESKWALLPAPER then
    Caption := 'Das Desktop-Wallpaper hat sich geändert!';
end;

Hm, es funktioniert. Ich hatte zwei andere Varianten die das selbe Prinzip hatten aber nicht funktionierten.

[turboPASCAL]

// Edit:

Es funktiomiert nicht. Jeden falls unter Win XP.

Code:

[color=#000080][b]procedure[/b][/color] TForm1.WMSettingChange([color=#000080][b]var[/b][/color] Msg : TMessage);
[color=#000080][b]begin[/b][/color]
[color=#ff0000]  if Msg.WParam = SPI_SETDESKWALLPAPER then[/color][color=#008000] // Breakpoint[/color]
    GetActiveDesktopWallpaper;
[color=#000080][b]end[/b];[/color]

Hier kommt unter XP SP2/SP3 als Msg.WParam der Wert Null.
Mit Vista SP2 und Windows 7 ist dieser Wert wie erwartet gleich SPI_SETDESKWALLPAPER also 20.

[Fridolin Walther]

Im Zweifelsfall könntest Du immer noch den von Popov genannten Registry Schlüssel mit Hilfe von RegNotifyChangeKeyValue überwachen lassen.