Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.08.29;
Скачать: CL | DM;

Вниз

Устанавливаем свой 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 )
работает только после перезагрузки, то есть не работает вовсе, ибо после перезагрузки настройки реестра и сами вступят в силу



Страницы: 1 вся ветка

Текущий архив: 2002.08.29;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.01 c
7-95991
nick_sniper
2002-06-19 07:42
2002.08.29
Как правильно перечитать флоппи-диск


3-95689
Kinder
2002-08-07 15:04
2002.08.29
Копирование баз


6-95936
RedArc
2002-06-19 17:36
2002.08.29
Почтовый робот


7-95988
lexx@demon
2002-06-18 13:44
2002.08.29
Уважаемые мастера подскажите пожалуйста, как получить


3-95633
BJValentine
2002-08-09 13:24
2002.08.29
Delphi+DTS