Обновление рабочего стола -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [18.219.132.107]

Модераторы: jack128, Rouse_, Krid

Ссылки по теме:

Обновление рабочего стола , Смена Wallpaper

P.O.D

Сообщ. #1 , 15.08.05, 10:25

Guru

Рейтинг (т): 274

Так все работает и сразу меняет. (WinXP)

uses ComObj,ShlObj;

procedure ChangeActiveWallpaper;

const

CLSID_ActiveDesktop: TGUID = '{75048700-EF1F-11D0-9888-006097DEACF9}';

var

ActiveDesktop: IActiveDesktop;

begin

ActiveDesktop := CreateComObject(CLSID_ActiveDesktop) as IActiveDesktop;

ActiveDesktop.SetWallpaper('c:\windows\forest.jpg', 0);

ActiveDesktop.ApplyChanges(AD_APPLY_ALL or AD_APPLY_FORCE);

end;

1 пользователей читают эту тему (1 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0,0128 ] [ 15 queries used ] [ Generated: 17.05.24, 05:32 GMT ]