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;