Hallo Leute!
Ich hab da mal ne Frage:
Ich hab ein Programm geschrieben, das per Zufall ein Bild aus einem Verzeichnis auswählt und dann als Wallpaper auswählt:
Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18:
| procedure TForm1.setwallpaper(BMPFileName : String; Tile, Stretch : boolean ); var reg : TRegIniFile; begin reg := TRegIniFile.Create('Control Panel\Desktop' ); with reg do begin WriteString('','Wallpaper', BMPFileName); if (Tile)then WriteString('','TileWallpaper', '1') else WriteString('','TileWallpaper', '0'); if (Stretch) then WriteString('','WallpaperStyle', '2') else WriteString('','WallpaperStyle', '0'); end; reg.Free; SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, pChar(BMPFileName), SPIF_SENDCHANGE or SPIF_UPDATEINIFILE); end; |
Das geht auch wunderbar solange ich in Delphi F9 drücke oder im Menü Start - Start auswähle, aber sobald ich das Programm über die compilierte EXE starte, muss ich auf dem Desktop erst noch F5 drücken um das Bild zu aktualisieren...
Wie kann das sein, das der da Unterschiede reinbaut? Ich bin total verzweifelt, kann man da überhaupt was ändern?
Bitte helft mir schnell!!!!
Schon mal Danke im Vorraus, Tobi