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

Советы » ScreenSaver и ScreenMate » Устанавливаем свой 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

.

Другое по теме:

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com