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;