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

← →
Oleg Shashin (2002-04-20 03:40) [0]

в факу есть на эту тему кусок кода, который по моим наблюдениям работает только под НТ, вопрос : почему не работает под 9Х?

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; end; reg.Free;// Оповещаем всех о том, что мы // изменили системные настройкиSystemParametersInfo(SPI_SETDESKWALLPAPER, 0, Nil, SPIF_SENDWININICHANGE );end;begin // пример установки WallPaper по центру рабочего стола SetWallpaper("c:\winnt\winnt.bmp", False );end.

тут фишка в чем: под нт обой сразу меняется, а под 9х - только перезагрузки, имхо дело в
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, Nil, SPIF_SENDWININICHANGE )
а может еще в чем, кто сталкивался?

← →
Song © (2002-04-20 09:25) [1]

http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1019033210&n=2

← →
Donal_Graeme (2002-04-20 18:39) [2]

к своему ответу в той ветке добавлю:

var WP: Array [0..255] of Char;

StrPCopy (WP, PathToPicture);

Картинка должна быть BMP.
Никаких операций с реестром я не производил :-)

← →
Oleg Shashin (2002-04-22 02:19) [3]

спасибо, попробую,
хотя уже постиг причину,
дело было не в бобине а в активной директории, или как оно там называется, там где ставится галочка "отображать веб-содержимое на столе", когда она поставлена SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, Nil, SPIF_SENDWININICHANGE )
работает только после перезагрузки, то есть не работает вовсе, ибо после перезагрузки настройки реестра и сами вступят в силу

Устанавливаем свой WallPaper для Windows Найти похожие ветки