Устанавливаем свой WallPaper для Windows в Delphi

program wallpapr;
 
uses Registry, WinProcs;
 
procedure SetWallpaper(sWallpaperBMPPath : String; bTile : boolean );
var
  reg : TRegIniFile;
begin
  // Изменяем ключи реестра
  // HKEY_CURRENT_USER
  // Control Panel\Desktop
  // TileWallpaper (REG_SZ)
  // Wallpaper (REG_SZ)
  reg := TRegIniFile.Create('Control Panel\Desktop');
  with reg do
  begin
    WriteString('','Wallpaper',sWallpaperBMPPath);
    if (bTile) then
      WriteString('', 'TileWallpaper', '1')
    else
      WriteString('', 'TileWallpaper', '0');
  end;
  reg.Free;
  // Оповещаем всех о том, что мы   изменили системные настройки
  SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, Nil, SPIF_SENDWININICHANGE);
end;
 
begin
  // пример установки WallPaper по центру рабочего стола
  SetWallpaper('c:\winnt\winnt.bmp', False);
end.
Kwork.ru - услуги фрилансеров от 500 руб.
1 Звезда2 Звезды3 Звезды4 Звезды5 Звезд (11 оценок, среднее: 4,91 из 5)
Загрузка...
Добавить комментарий