Einzelnen Beitrag anzeigen

Honigdachs
(Gast)

n/a Beiträge
 
#9

Re: Windows Desktop Hintergrund ändern?

  Alt 19. Jan 2008, 20:47
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;
  Mit Zitat antworten Zitat