На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
Модераторы: Rouse_, jack128, Krid
  
    > Active Desktop , как программно отключать и включать
      как программно отключать и включать Active Desktop:


      ExpandedWrap disabled
        uses
           ComObj, ShlObj, ActiveX;
         
         procedure EnableActiveDesktop(bValue: Boolean);
         const
           CLSID_ActiveDesktop: TGUID = (D1: $75048700; D2: $EF1F; D3: $11D0;
             D4: ($98, $88, $00, $60, $97, $DE, $AC, $F9));
         var
           MyObject: IUnknown;
           ActiveDesk: IActiveDesktop;
           twpoComponentOpt: TComponentsOpt;
         begin
           MyObject := CreateComObject(CLSID_ActiveDesktop);
           ActiveDesk := MyObject as IActiveDesktop;
           with twpoComponentOpt do
           begin
             ZeroMemory(@twpoComponentOpt, SizeOf(TComponentsOpt));
             dwSize := SizeOf(twpoComponentOpt);
             fEnableComponents := bValue;
             // fActiveDesktop := True;
          end;
           ActiveDesk.SetDesktopItemOptions(twpoComponentOpt, 0);
           ActiveDesk.ApplyChanges(AD_APPLY_ALL);
         end;
      Сообщение отредактировано: Miscђka -
      0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
      0 пользователей:


      Рейтинг@Mail.ru
      [ Script execution time: 0,0152 ]   [ 17 queries used ]   [ Generated: 29.03.24, 02:37 GMT ]