Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.031 c
1-1101502027
leonidus
2004-11-26 23:47
2004.12.12
ToolBar`ы с изменяющимся в run-time набором кнопок


14-1100879366
Ilya___
2004-11-19 18:49
2004.12.12
У меня есть строковое значение 3294567000 Мне нужно его перевест


14-1100981122
Piter
2004-11-20 23:05
2004.12.12
Почему ВЫ не используете клиент?


8-1094651546
SNV888
2004-09-08 17:52
2004.12.12
проигрывание MOD файлов


8-1095352608
UserUserov
2004-09-16 20:36
2004.12.12
Графика на консоли в Delphi