Текущий архив: 2004.12.12;
Скачать: CL | DM;
Вниз
Active descktop Найти похожие ветки
← →
menart © (2004-10-27 09:23) [0]Как можно отключить сабж с помошью апи в W98!
← →
Ученик (2004-10-27 22:49) [1]uses
ComObj, ShlObj;
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;
← →
Yanis © (2004-10-27 23:40) [2]#offtopic
Пользуйтесь "[CODE]" и "[/CODE]"
#endofftopic
Страницы: 1 вся ветка
Текущий архив: 2004.12.12;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.052 c
