Как сменить обои на рабочем столе?

Содержание материала

Страница 1 из 4

В принципе, все настройки на фоновый рисунок хранятся в реестре. Поэтому надо сначала скопировать картинку в какое-нибудь место (лучше в каталог Виндов) на случай удаления или переноса исходного файла. Информация по обоям хранится в разделе HKEY_CURRENT_USER\Control Panel\Desktop в параметрах TileWallpaper (если 1 - рисунок размножен, 0 - в центре), Wallpaper - путь к файлу обоев (gif, bmp, jpg), WallpaperStyle - если 2, то обои будут растянуты (отсутствует в 95 винде).

ПОсле установки всех занчений обновляешь рабочий стои и наслаждаешься эффектом.

Автор ответа: Garik

Смена обоев только на время текущего сеанса, после перезагрузки обои восстановятся:

Code:

var Wallpaper : string;

{©Drkb v.3}

begin

Wallpaper := 'C:\windows\ACD Wallpaper.bmp';

SystemParametersInfo (SPI_SETDESKWALLPAPER, 0, PChar(Wallpaper), SPIF_SENDCHANGE)

end;

Code:

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

begin

WriteString('', 'TileWallpaper', '1' );

end else begin

WriteString('', 'TileWallpaper', '0' );

end;

reg.Free;

// Оповещаем всех о том, что мы

// изменили системные настройки

SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, Nil,

{Эта строка - продолжение предыдущей}SPIF_SENDWININICHANGE );

end;

// пример установки WallPaper по центру рабочего стола

SetWallpaper('c:\winnt\winnt.bmp', False );

//Эту строчку надо написать где-то в программе.

Новые статьи

Ранние статьи

Как обновить рабочий стол?

Как сменить обои на рабочем столе?