Windows Desktop Hintergrund ändern?

[Honigdachs]

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