[VISTA] Globaler Hotkey - Hintergrundbild ändern

[Nils_13]

Hi,

ich habe ein ganz simples Programm, das den Desktophintergrund ändern soll. Es stehen immer nur zwei zur Wahl. Wenn ich kein Programm offen habe, kann ich Strg+Alt+E blutig hauen und es wird immer brav gewechselt. Sobald nur ein kleinstes Notepad oder der Explorer offen sind (egal ob aktiv oder inaktiv) passiert rein gar nichts mehr. Der Wert in der Registry ändert sich zwar, aber der Desktophintergrund wird nicht geändert. Nur manchmal ändert sich der Hintergrund noch viel später. Das passiert aber nur ganz selten und dann auch nur, wenn der Desktop neu gezeichnet werden muss. Aber nicht immer wenn der Desktop aktualisiert wird, ändert sich der Hintergrund. Nun mal ein Beispiel: Ich öffne via Win+E den Explorer, drücke meinen Hotkey - nichts passiert. Nun schließe ich den Explorer, drücke Win+E und schließe ihn wieder und drücke dann den Hotkey - der Desktophintergrund ändert sich. Total seltsam, das Notepad hat ein gleiches Verhalten. Man könnte meinen, es wäre ein Problem mit dem Hotkey, aber der wird laut Debugger immer ausgeführt. Auch im Programm stimmt der Ablauf. Also kann es nur an dem ShellExecute liegen, aber warum ? Was ist unter Vista wieder mal anders als unter XP ? Was ich nur nochmal zusammenfassen kann: Der Ablauf, wann nun wirklich das Hintergrundbild geändert wird kommt nicht so ganz raus. Ich habe viel getestet und wie eben geschildert auch Abläufe festgestellt, aber ich spüre trotzdem irgendwie, dass es keine einheitlichen Fehlabläufe sind, sondern es nur so erscheint, als würde Vista irgendetwas anders machen als XP und das nur sporadisch.

Delphi-Quellcode:

  protected
    { Protected-Deklarationen }
    procedure WMHotKey(var Message : TMessage); message WM_HOTKEY;
  end;

procedure TfrmMain.FormCreate(Sender: TObject);
begin
  RegisterHotKey(Handle, 1, MOD_CONTROL or MOD_ALT, Ord('E'));
end;

procedure TfrmMain.FormDestroy(Sender: TObject);
begin
  UnregisterHotKey(Handle, 1);
end;

procedure TfrmMain.WMHotKey(var Message : TMessage);
var Reg : TRegistry;
begin
  if Message.wParam = 1 then
  begin
    Reg := TRegistry.Create;
    try
      Reg.OpenKey('Control Panel\Desktop', True);
      Reg.ReadString('Wallpaper');
      with TIniFile.Create(ExtractFilePath(ParamStr(0))+'settings.ini') do
      begin                                                                 
        if Reg.ReadString('Wallpaper') = ReadString('a', '1', '') then
          Reg.WriteString('Wallpaper', ReadString('a', '2', ''))
        else
          Reg.WriteString('Wallpaper', ReadString('a', '1', ''));
        ShellExecute(Handle, 'open', PChar('C:\WINDOWS\System32\RUNDLL32.EXE'), PChar('user32.dll, UpdatePerUserSystemParameters'), nil, 0);
        Free;
      end;
    finally
      Reg.Free;
    end;
  end;
end;

[mirage228]

Sollte man nicht eher die API-Funktion zum Ändern des Wallpapers verwenden?
SystemParametersInfo / SPI_SETDESKWALLPAPER

Viele Grüße

[Nils_13]

Und da gibt es sogar einen Eintrag in der Code-Library zu, oh Mann :wall: Es funktioniert sowohl unter XP als auch unter Vista. Danke!