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;