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

Вниз

Как программно включить-выключить Active Desktop?   Найти похожие ветки 

 
Ал   (2003-04-16 15:27) [0]

Или узнать, включен он или нет?
Подскажите, мастера!


 
Ал   (2003-04-16 23:37) [1]

Не может быть, чтобы нельзя было!


 
Внук ©   (2003-04-17 09:29) [2]

Можно. В реестре поискать надо. У меня есть небольшой рабочий примерчик, но он дома. Могу порекомендовать только книгу Борна "Inside Windows Registry". Или Google...


 
Ал   (2003-04-17 09:32) [3]

Уважаемые знатоки! Подскажите конкретнее - для того и конференция. Если бы я знал, что искать в Google.


 
Songoku ©   (2003-04-17 11:17) [4]

uses
ShlObj, ComObj;

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;


Скажи мне если работает ... потому что я не уверен на все 100% что работает!!!


 
Ал   (2003-04-18 16:35) [5]

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

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


 
Songoku ©   (2003-04-19 04:23) [6]

Я чито случайно нашёл одну функцию!!!

function IsActiveDeskTopOn: Boolean;
var
h: hWnd;
begin
h := FindWindow("Progman", nil);
h := FindWindowEx(h, 0,
"SHELLDLL_DefView", nil);
h := FindWindowEx(h, 0,
"Internet Explorer_Server", nil);
Result := h <> 0;
end;




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

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

Наверх




Память: 0.47 MB
Время: 0.016 c
1-84320
Serjik
2003-06-15 05:59
2003.06.26
Следы


14-84701
Soft
2003-06-03 13:56
2003.06.26
Длинные волосы


3-83878
Merlot
2003-06-02 15:43
2003.06.26
Фильтрация данных!


1-84294
Duby
2003-06-15 12:31
2003.06.26
Запись из StringGrid а


1-84147
Rel_
2003-06-11 12:05
2003.06.26
TTreeNode