Сменить обои рабочего стола

[marik668]

Ребят помогите пожалуйста пишу маленькую прогу для смены обоев на рабочем столе. Использовал вот это, но в место картинки получился синий экран без обоев. Может че неверно сделано помогите пожалуйста.
В этом деле новенький.

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;

procedure TfmImageViewer.btn7Click(Sender: TObject);

  SetWallpaper(flbFiles.fileName, True);
end;

У нас принято оформлять код специальным тэгом - при помощи кнопочки "#".
Только...
И не значком #.
И не РНР-кодом.
И не значком цитаты.
И не собственными "ручками".
Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Модератор

[mihali4]

SystemParametersInfo(SPI_SETDESKWALLPAPER,0,PChar('c:\desk.bmp'),SPIF_UPDATEINIFILE);