Текущий архив: 2004.01.09;
Скачать: CL | DM;

Вниз

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

← →
roman_kyl@chat.ru   (2003-12-22 11:26) [0]

Как включить ActiveDesktop. Заранее благодарю.

---

← →
Kerk ©   (2003-12-22 11:48) [1]

Панель управления -> Свойства: Экран
:))))

---

← →
dDan   (2003-12-22 11:49) [2]

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;

---

← →
roman_kyl@chat.ru   (2003-12-22 12:20) [3]

Большое спасибо.

---

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

Текущий архив: 2004.01.09;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.021 c