Windows Desktop Hintergrund ändern?

[Honigdachs]

Delphi-Quellcode:

procedure SetBackground(const Dateiname: String);
begin
  if not SystemParametersInfo(SPI_SETDESKWALLPAPER,
                             0,
                             PChar(Dateiname),
                             SPIF_SENDCHANGE OR SPIF_UPDATEINIFILE) then
   RaiseLastwin32Error;
End;

Im großen und ganzen ja, ich hab nur AFilename durch Dateiname ersetzt.

Der Fehler tritt alle 10sec auf...

Der Dateiname wird mit SetBackground(Dateiname); übergeben, und zwar aus einem Button raus.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Dateiname:= edit3.text;
  SetBackground(Dateiname);
end;