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

Вниз

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

← →
sos   (2003-08-15 09:38) [0]

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

---

← →
Vovas   (2003-08-15 10:05) [1]

Под 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;

---

← →
sos   (2003-08-15 10:21) [2]

Спасибо

---

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

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

Наверх

Память: 0.46 MB
Время: 0.012 c