| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Обои [D6, Win2k]

sos ©   (2003-08-15 09:38:00) 

Как программно сменить обои ?

---

sos   (2003-08-15 10:21:00) [1]

Спасибо

---

Vovas   (2003-08-15 10:05:00) [2]

Под W2K:
SystemParametersInfo(SPI_SETDESKWALLPAPER,0,PChar(ПУТЬ К КАРТИНКЕ),SPIF_UPDATEINIFILE+SPIF_SENDCHANGE);

Под W9x:

SystemParametersInfo(SPI_SETDESKWALLPAPER,0,PChar(ПУТЬ К КАРТИНКЕ),SPIF_UPDATEINIFILE+SPIF_SENDCHANGE);

//Сохранение в регистре имени текущего изображения
with TRegistry.Create do
try
RootKey:=HKEY_CURRENT_USER;
if OpenKey(ImgsKey, False) then
begin
WriteString("WallpaperName",ПУТЬ К КАРТИНКЕ);
end;
finally
CloseKey;
Free;
end;

---

Наверх