| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Active Desktop [D5, Win95/98]

Freeze ©   (2002-08-20 07:29:00) 

Как программно вкл/откл. Active Desktop, т.е. в свойствах экрана, в закладке Интернет поставить галочку "Отображать Active Desktop как Веб страницу". Помогите плиззз...

---

Ученик   (2002-08-20 10:43:00) [1]

uses
ComObj, ShlObj;

---

Геннадий   (2002-08-20 10:36:00) [2]

А в каком модуле описание IActiveDesktop? А то компилятор говорит - не знаю идентификатор...

---

Ученик   (2002-08-20 09:06:00) [3]

procedure EnableActiveDesktop(bEnabled : Boolean);
const
CLSID_ActiveDesktop : TGUID = "{75048700-EF1F-11D0-9888-006097DEACF9}";
var
ActiveDesktop : IActiveDesktop;
ComponentsOpt : TComponentsOpt;
begin
ActiveDesktop := CreateComObject(CLSID_ActiveDesktop) as IActiveDesktop;
ComponentsOpt.dwSize := SizeOf(ComponentsOpt);
ComponentsOpt.fEnableComponents := bEnabled;
ComponentsOpt.fActiveDesktop := bEnabled;
ActiveDesktop.SetDesktopItemOptions(ComponentsOpt, 0);
ActiveDesktop.ApplyChanges(AD_APPLY_REFRESH)
end;

---

Наверх