Скачать: CL | DM;

Обои   Найти похожие ветки 

← →
_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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.037 c