Wallpaper wechseln, geht nicht

[citybreaker]

Hallo!

Habe folgende Codes von Swissdelphicenter ausprobiert: http://www.swissdelphicenter.ch/de/showcode.php?id=75
doch bei allen gibt es das selbe Problem. Unzwar bleibt der
Desktop nach dem Wechseln einfach schwarz, anstatt das entsprechende
Bild angezeigt wird.

Code:

procedure SetWallpaper(sWallPaperBMPPath: string; bTile: Boolean);
var
  reg: TRegIniFile;
begin
  reg := TRegIniFile.Create('Control Panel\Desktop');
  try
    with reg do
    begin
      WriteString('', 'Wallpaper', sWallPaperBMPPath);
      WriteString('', 'TileWallpaper', IntToStr(Ord(bTile)));
    end;
  finally
    reg.Free;
  end;
  SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, nil, SPIF_SENDWININICHANGE);
end;

procedure SetPaper(Filename: String);
var sWallPaperBMPPath: string;
begin
  sWallPaperBMPPath := Filename;
  if not SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, Pointer(sWallPaperBMPPath),
    SPIF_SENDWININICHANGE) then
    ShowMessage('Succesful.')
  else
    ShowMessage('Failed!');
 end;

Jemand ne Idee, warum das passiert? Kann es daran liegen, dass die Wallpaper keine Bitmaps
sind?

[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;