смена обоев рабочего стола

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

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

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