Главная страница
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.029 c
3-25205
jonik_jj
2003-12-11 17:44
2004.01.09
DevExpress- Проблемы с TdxDBLookupEdit


14-25548
ProNeed
2003-12-18 18:46
2004.01.09
Ищу Delphi-программера на постоянную работу в Москве


14-25510
TJ
2003-12-15 11:35
2004.01.09
У меня спёрли мобилу, как найти ублюдка Кто знает емельте


14-25565
Aristarh
2003-12-17 10:09
2004.01.09
Сервер на AMD. Миф или реальность.


1-25420
чайник
2003-12-17 15:24
2004.01.09
Delphi7 и Excel2000