Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.01.09;
Скачать: CL | DM;

Вниз

Работа с COM   Найти похожие ветки 

 
Ал   (2003-04-18 16:48) [0]

uses
KOLComObj, ShlObj;

procedure TurnActiveDesktop(state:Bool);
const
CLSID_ActiveDesktop: TGUID = "{75048700-EF1F-11D0-9888-006097DEACF9}";
var
ie:IActiveDesktop;
opt:TCOMPONENTSOPT;
begin
ie:= CreateComObject(CLSID_ActiveDesktop) as IActiveDesktop;
opt.dwSize := sizeof(opt);
opt.fActiveDesktop := state;
opt.fEnableComponents := state;
ie.SetDesktopItemOptions(opt,0);
ie.ApplyChanges(AD_APPLY_REFRESH);
end;

Работает, но:

под Win98 - срабатывает только один раз за сеанс работы программы. Запустил программу, нажал кнопку - вызвал функцию - выключил ActiveDesktop. Программа продолжает работать. Если при работающей программе снова вручную включить ActiveDesktop, а затем нажать кнопку - вызвать функцию - ActiveDesktop не выключается.

Хотя при смене обоев таким образом все аккуратно срабатывает.

Хотя дело не в KOL (такая ситуация возникает и без KOL с Uses ComObj), но люди здесь умные, может кто что и подскажет.
Возможно, нужно(ненужно) пересоздавать COM-объект(перерегистрировать класс)? Или D4 подводит? Не знаю.


 
Boguslaw   (2003-04-18 17:46) [1]

I don"t know COM objects well , but where You free COM object created by CreateComObject ? I think You should create COM object once at startup not in TurnActiveDesktop.

Boguslaw



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

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

Наверх




Память: 0.46 MB
Время: 0.085 c
7-25635
Yegor
2003-10-25 21:05
2004.01.09
Скорость


1-25300
Xtz
2003-12-22 22:22
2004.01.09
И Снова TreeView ,помогите разобратся млин уж неделю парюсь


1-25386
Rate
2003-12-24 20:09
2004.01.09
Нажатие кнопки


1-25325
Samael6
2003-12-17 17:01
2004.01.09
Outlook Express COM Add-ins


1-25374
corda
2003-12-25 08:05
2004.01.09
Проблемы с MaskEdit