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

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

Active descktop [D6, Win95/98]

menart ©   (2004-10-27 09:23:00) 

Как можно отключить сабж с помошью апи в W98!

---

Yanis   (2004-10-27 23:40:00) [1]

#offtopic
Пользуйтесь "[CODE]" и "[/CODE]"
#endofftopic

---

Ученик   (2004-10-27 22:49:00) [2]

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;

---

Наверх