Обои

← →
_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]

Здесь смена происходит только после перезагрузки. а надо чтобы без перезагрузки

Первый способ:
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%!!! Вот, решать тебе, я выбрал первый =)

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