Главная страница
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.021 c
6-25487
gfew
2003-11-06 12:09
2004.01.09
Кодинг сокетов юзая winsock2


1-25427
hobbeat
2003-12-24 07:04
2004.01.09
Притормаживания IDE Deplphi


3-25184
Sirus
2003-12-13 07:46
2004.01.09
Backup / Restore влияет на ORDER BY???


14-25596
}|{yk
2003-12-03 14:12
2004.01.09
---|Ветка была без названия|---


4-25664
Dmitry___
2003-11-02 18:10
2004.01.09
Определение имени пользователя...