یک روش خوب و کامل برای تغییر WALLPAPER.با این روش شما هم می توانید تصویر را معرفی کنید و هم این که آیا تصویر در صورت کوچک بودن در وسط باشد یا Tile؟ با قرار دادن مقدار منطقی False تصویر در وسط و با قرار دادن True تصویر به صورت Tile نصب می شود.

uses
  Registry, WinProcs;
procedure SetWallpaper(
            sWallpaperBMPPath : String;
            bTile : boolean );
var
  reg : TRegIniFile;
begin
  reg := TRegIniFile.Create(
           "Control Panel\Desktop" );
  with reg do
  begin
    WriteString( "", "Wallpaper",
      sWallpaperBMPPath );
    if( bTile )then
    begin
      WriteString(
        "", "TileWallpaper", "1" );
    end else
    begin
      WriteString(
        "", "TileWallpaper", "0" );
    end;
  end;
  reg.Free;
  SystemParametersInfo(
    SPI_SETDESKWALLPAPER,
    0,
    Nil,
    SPIF_SENDWININICHANGE );
end;