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? А то компилятор говорит - не знаю идентификатор...

uses
ComObj, ShlObj;

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