Fehlermeldung bei Hintergrundänderung

[mac.cat]

Hi,
nachdem ich beim googeln verzweifelt bin, habe ich mal einen Thread aufgemacht.
Und zwar will ich ein Programm schreiben, dass den Desktophintergrund ändert.
Das funktioniert nur nicht so richtig.

Delphi-Quellcode:

procedure SetBackground(const sPath: String);
begin

 if not SystemParametersInfo(SPI_SETDESKWALLPAPER,
                             0,
                             Pointer(sPath),
                             SPIF_SENDCHANGE OR SPIF_UPDATEINIFILE) then
   RaiseLastOSError;
End;

Er gibt mir die Fehlermeldung "A call to an OS function failed." aus und der Desktophintergrund wird schwarz..
Am Delphi Quelltext selbst kann es eigentlich nicht liegen, da ich auch mehrere Beispiele hier im Forum gefunden habe, die hätten funktionieren müssen. Nach einfügen von "RaiseLastOSError;" gaben sie mir aber die selbe Fehlermeldung aus. (Ohne wurde der Desktophintergrund einfach schwarz, ohne Fehlermeldung).
Ich habe keine Ahnung, woran das liegen kann.

mfg mac.cat