Сменить картинку раб. стола

[Jarunix]

Как поменять картинку рабочего стола если запрещено заходить в свойства и не нельзя другим методом (Открываю картинку, кликаю ПКМ по изображению, выбираю "сделать картинкой рабочего стола").
На рабочем столе картинки вообще нет, просто синий фон.
Помогите плз, это 12 баллов будет

Сорри если не в ту ветку

[ZaRDaK]

Код на дельфи.

uses
  Registry, WinProcs;

procedure SetWallpaper( 
            sWallpaperBMPPath : String; 
            bTile : boolean );
var
  reg : TRegIniFile;
begin
  // HKEY_CURRENT_USER
  //   Control PanelDesktop
  //     TileWallpaper (REG_SZ)
  //     Wallpaper (REG_SZ)
  //
  reg := TRegIniFile.Create( 
           'Control PanelDesktop' );
  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;