Текущий архив: 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.44 MB
Время: 0.038 c
