Скачать: CL | DM;

Active Desktop   Найти похожие ветки 

← →
Freeze ©   (2002-08-20 07:29) [0]

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

---

← →
Ученик ©   (2002-08-20 09:06) [1]

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;

---

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

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

---

← →
Ученик ©   (2002-08-20 10:43) [3]

uses
ComObj, ShlObj;

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.016 c