Wie Wallpaper wechsel mitbekommen ?

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