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]

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

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