Wallpaper wechseln, geht nicht

[ichbins]

Bei mir gehts.

Für JPEGs funktioniert der Code nicht, hab ich auch schon ausprobiert. Deshalb heisst der Parameter ja auch sWallpaperBMPPath.

Du kannst die JPEGs aber auch in Bmps umwandeln:

Delphi-Quellcode:

uses
  ..., jpeg;

var
  j:tjpegimage;
  b:tbitmap;
begin
  b:=tbitmap.create;
  j:=tjpegimage.create;
  j.loadfromfile(dateiname);
  b.assign(j);
  b.savetofile('C:\tmp.bmp');
  b.free;
  j.free;