Delphirus - прграммирование на delphi
   Все о delphi Delphirus - прграммирование на delphi
blocks.gif
Навигация
 

Главная
Статьи
Базы данных
Графика
Защита
Интернет
Система
Тексты
Мультимедиа
Файлы
Формы и окна
Другое
Советы
Базы данных
Графика
Интернет
Мультимедиа
Система
Тексты
Файлы
Файлы
Исходники
Компоненты
Инфо
Поиск по сайту
Обратная связь
Самое популярное
Аккаунт
Карта сайта

 
 
 

Советы по delphi \ Графика и Игры \ ScreenSaver и ScreenMate \ Устанавливаем свой WallPaper для Windows

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

program wallpapr;
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;
begin
{ пример установки WallPaper по центру рабочего стола}
SetWallpaper('c:winntwinnt.bmp', False );
end.

Название: Устанавливаем свой WallPaper для Windows
Дата публикации: 2004-01-27 (2916 Прочтено)

 
 

 

Page generation 0.032 seconds