Форум: "WinAPI";
Текущий архив: 2005.10.16;
Скачать: [xml.tar.bz2];
ВнизОбои Найти похожие ветки
← →
_alex_ (2005-08-16 11:38) [0]Как поменять обои на рабочем столе с помощью Delphi без перезагрузки компьютера? Заранее спасибо.
← →
KA_ © (2005-08-16 14:25) [1]Пять способов:
http://delphiworld.narod.ru/base/change_wallpaper.html
http://delphiworld.narod.ru/base/change_wallpaper2.html
http://delphiworld.narod.ru/base/change_wallpaper3.html
http://delphiworld.narod.ru/base/change_wallpaper4.html
http://delphiworld.narod.ru/base/change_wallpaper5.html
← →
_alex_ (2005-08-16 17:13) [2]Здесь смена происходит только после перезагрузки. а надо чтобы без перезагрузки
← →
NightLord © (2005-08-16 19:37) [3]Первый способ:
var str:TFileName;
reg : TRegIniFile;
reg := TRegIniFile.Create("Control Panel\Desktop" );
with reg do begin
WriteString( "", "Wallpaper",
str );
WriteString("", "TileWallpaper", "0" );
end;
reg.Free;
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, Nil, SPIF_SENDWININICHANGE );
Второй способ:
SystemParametersInfo(SPI_SETDESKWALLPAPER,0,
PChar("C:\SOMEPATH\SOME.BMP"),SPIF_SENDWININICHANGE);
Проблемы: Эти два способа работают без перезагрузки, но после использования некоторых игр обои исчезают (т.е. нет их), Прервый способ хоть и длиней ног в 85% случаев обои остаются, а после второго в 50%!!! Вот, решать тебе, я выбрал первый =)
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2005.10.16;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.041 c