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
Was ist "Real Life" und wo zur Hoelle kann ich es runterladen!! 