JPG als Desktop-Wallpaper?

[gothic_mike]

Zitat von Dannyboy:

Also Fellaz,
ich habe nun die in Delphi involvierte JPEG-Klasse verwendet und habe
die JPEG-Datei geladen und speichere sie dann als Bitmap ab, um diese
dann mittels Funktion SystemParametersInfo als Wallpaper
anzunehmen. Das Wallpaper wird anstandslos übernommen und die Funktion liefert den Wert <true> zurück.

Sobald man den Desktop aktualisiert, wird das Wallpaper scheinbar vom Desktop gelöscht und der Desktop wird schwarz. Bei einem evtl. Neustart ist das Wallpaper ebenfalls nicht mehr vorhanden. Hilfe.
Was nun???

probiers mal damit:

Code:

Function SetWallpaper(FileName: String; Style: Integer): Boolean;
Var
  reg: TRegistry;
  wp: Array[0..$FF] Of Char;
Begin
  reg := TRegistry.Create;
  Try
    reg.RootKey := HKEY_CURRENT_USER;
    If reg.OpenKey('\Control Panel\desktop\', True) Then
    Begin
      If (Style = 1) Then
        reg.WriteString('TileWallpaper', '1')
      Else
        reg.WriteString('TileWallpaper', '0');

      reg.WriteString('WallpaperStyle', IntToStr(Style));
    End;
  Finally
    reg.Free;
  End;

  StrPCopy(wp, FileName);
  Result := SystemParametersInfo(spi_SetDeskWallpaper, 0, @wp, spif_UpdateIniFile);
End;

FileName:
Path und Dateiname des Wallpapers im BMP-Format

Style:
0 - Zentriert
1 - Nebeneinander
2 - Gestreckt