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:

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. :stupid:

[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

Delphi-Quellcode:

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?

[Honigdachs]

Zitat:

Zitat von DeddyH

Und was steht in dem Edit?

Der exakte Dateipfad. C:\Bilder\Test\Bild1.jpg

[DeddyH]

Mom, ich test das mal.

[s.h.a.r.k]

Bei mir hat das mit JPEGs irgendwie nie richtig funktioniert. Diese habe ich zurerst in eine BMP umwandeln müssen, da ging es.

Anbei findet ihr mein Konsolen-Programm, welches ich in der Uni nutze, da beim Start des OS nie das alte Wallpaper bleibt!

[DeddyH]

Mit Bitmaps geht es.

[edit] 2 late :? [/edit]

[s.h.a.r.k]

Aber bitte frag mich nicht wieso... Vielleicht macht es Vista ja anders. Ich versteh es selber nicht, zumal es JPGs schon ewig gibt. Aber gut, ein normales OS schafft es eben auch mit JPGs...

[Honigdachs]

Danke an shark für das Programm, werde mir das mal anschauen.

Und dann alles mit bitmaps versuchen.

[DeddyH]

Naja, in meiner Hilfe steht aber auch eindeutig

Zitat:

Zitat von Win32-SDK

SPI_SETDESKWALLPAPER Sets the desktop wallpaper. The pvParam parameter must point to a null-terminated string containing the name of a bitmap file.

[s.h.a.r.k]

Ich weiß, dass es eine andere Frage ist, aber weiß irgendwer warum das unbedingt eine Bitmap sein muss und kein anderes Format?! Ich finde die Umwandlung zwar nicht unbedingt so schwer - zumal ich die Funktion, soweit ich noch weiß, auch nur kopiert habe - aber das brauch es doch nicht unbedingt.

[DeddyH]

Ruf doch mal in Oberschleißheim an ;)

Linux is like a wigwam - no Windows, no Gates, Apache inside

[Honigdachs]

Also es tut so weder mit bmp noch mit jpg noch mit sonstwas.
ich habs jetzt damit versucht

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
  if OpenDialog4.Execute then
  begin
    if not SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, Pointer(OpenDialog1.FileName), SPIF_SENDWININICHANGE) then
    begin
      ShowMessage('Konnte folgende Datei nicht als Desktop-Hintergrund setzen: '+OpenDialog1.FileName);
    end;
  end;
end;

Damit klappts auch. Nur wenn ich folgendes versuche geht nichts mehr :( - bzw. es flackert kurz und geht wieder zurück.

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
  begin
    if not SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, Pointer(var_edit1), SPIF_SENDWININICHANGE) then  //in var_edit1 steht als string die exakte Dateibezeichung
    begin
//      ShowMessage('Konnte folgende Datei nicht als Desktop-Hintergrund setzen: '+OpenDialog1.FileName);
    end;
  end;
end;

[bitsetter]

Hi,

versuche es mal so:

Delphi-Quellcode:

if not SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, @var_edit1[1], SPIF_SENDWININICHANGE) then

[Honigdachs]

Zitat:

Zitat von bitsetter

Hi,

versuche es mal so:

Delphi-Quellcode:

if not SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, @var_edit1[1], SPIF_SENDWININICHANGE) then

Dann bräuchte ich aber ein Array oder?
Jedenfalls meckert er und möchte einen Array-Typ angegeben haben.

[bitsetter]

Ich dachte var_edit1 ist bei dir ein Ansistring

Delphi-Quellcode:

var
  var_edit1: AnsiString;

Mit deinem Code müsste es eigentlich auch gehen, steht in var_edit1 überhaupt ein gültiger Dateipfad drin?

[Honigdachs]

Zitat:

Zitat von bitsetter

Ich dachte var_edit1 ist bei dir ein Ansistring

Delphi-Quellcode:

var
  var_edit1: AnsiString;

Mit deinem Code müsste es eigentlich auch gehen, steht in var_edit1 überhaupt ein gültiger Dateipfad drin?

Nein, es ist ein ganz normaler String gewesen. Werde es mal mit ansistring versuchen.
Und in var_edit1 steht ein korrekter Pfad drin, der mittels OpenDialog festgelegt wurde.

Außerdem wird für ca. 1 sec der HG ja auch gewechselt...nur springt dann wieder um.

Ich kann gerne bei Bedarf mal den kompletten QT posten.