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

Вниз

смена обоев рабочего стола   Найти похожие ветки 

← →
vaxluk   (2005-05-15 19:15) [0]

подскажите пожалйста, как можно програмно изменить обои на рабочем столе?

---

← →
KilkennyCat ©   (2005-05-15 19:21) [1]

а поискать в сети лень?

---

← →
dmitry501 ©   (2005-05-16 11:01) [2]

vaxluk   (15.05.05 19:15)
2 Варианта:
1. SystemParametersInfo(SPI_SETDESKWALLPAPER,...);
2. Через IActiveDesktop (позволяет также менять опции отображения картинки)
CComPtr<IActiveDesktop> pDesktop;
CoCreateInstance(CLSID_ActiveDesktop, NULL,
CLSCTX_INPROC_SERVER,IID_IActiveDesktop, (void**)&pDesktop);
pDesktop->SetWallpaper(<wname>,0);
WALLPAPEROPT wopt;
wopt.dwSize=sizeof(wopt);
wopt.dwStyle=WPSTYLE_TILE;
pDesktop->SetWallpaperOptions(&wopt,0);
pDesktop->ApplyChanges(AD_APPLY_ALL);

(c) BlackMoon <svm(собак)neurok.com>

---

← →
Antonn ©   (2005-05-16 16:10) [3]

procedure SetWallpaper(Value: string);
begin
   SystemParametersInfo(spi_SetDeskWallpaper, 0, PChar(Value) , spif_UpdateIniFile);
end; //в качю параметра путь к изображению

---

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

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

Наверх

Память: 0.47 MB
Время: 0.031 c