1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

var s : String;
    a : Array[0..1024] of Char;

...

  if OpenDlg.Execute then begin
    s := OpenDlg.FileName;
    if FileExists(s) then begin
      StrPCopy(a, s);
      SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, @a, SPIF_UPDATEINIFILE);
    end;
  end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm1.FormCreate(Sender: TObject);
var a : Array[0..1024] of Char;
begin
  
    if FileExists('D:\Eigene Bilder\Wallpapers\'+inttostr(WeekOftheYear(Now))+'.jpg') then begin
      StrPCopy(a, 'D:\Eigene Bilder\Wallpapers\'+inttostr(WeekOftheYear(Now))+'.jpg');
      SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, @a, SPIF_UPDATEINIFILE);
    end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure SetWallpaperSystem(sWallpaper : String; bTile, bStrech: Boolean);
const
 aTile: Array[Boolean] of Byte =(0, 1);
 aStrech: Array[Boolean] of Byte =(0, 2);
begin
  with TRegIniFile.Create('Control Panel\Desktop') do try
    WriteString('', 'Wallpaper', sWallpaper);
    WriteInteger('', 'TileWallpaper', aTile[bTile]);
    WriteInteger('', 'WallpaperStyle', aStrech[bStrech]);
  finally Free end;

  //Aktualisiert das Hintergrundbild
  SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, nil, SPIF_SENDWININICHANGE);
end; {Popov}                    

1:
2:

[DllImport("user32.dll", CharSet = CharSet.Auto)]
        public static extern int SystemParametersInfo(int uAction, int uParam, string lpvParam, int fuWinIni);                    

1:
2:
3:
4:
5:

OpenFileDialog ofd = new OpenFileDialog();
            if (ofd.ShowDialog() == DialogResult.OK)
            {
                int change = SystemParametersInfo(20, 0, ofd.FileName, 0x1 | 0x2);
            }