Windows Desktop Hintergrund ändern?

[Honigdachs]

Hallo Gemeinde,

gibt es eine Möglichkeit, mit Delphi den Windows-XP-Desktop-Hintergrund zu ändern?

Also irgendeine Routine, die dann aufgerufen werden kann und dann das ändert?

Vielen Dank!

[STS301]

hier

[Honigdachs]

Zitat von STS301:

hier

Danke!

Aber wie ich sehe geht das nicht mit Delphi 5...

[Die Muhkuh]

Natürlich geht das mit Delphi5. Musst halt nur RaiseLastWin32Error verwenden, anstatt RaiseLastOSError...

[DeddyH]

Steht doch da (nee nee, Leute).

[bitsetter]

Hi,

hier gibt es noch eine andere Variante mit Jpegs oder Gif Bildformaten ab Delphi Version 4.
Nur falls du das mit RaiseLastWin32Error nicht hin bekommst.

[Honigdachs]

Erstmal danke für die Antworten.

Ich habs jetzt nach dem ersten Link versucht - klappt nicht...

Win32-API-Funktion ist fehlgeschlagen. Was hat das zu bedeuten?

[DeddyH]

Delphi-Quellcode:

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

So versucht?

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

[DeddyH]

Und was steht in dem Edit?