Delphi - база знаний

           

Как разрешить / запретить переключение между задачами?


Как разрешить / запретить переключение между задачами?



(только для ALT+TAB и CTRL+ESC)

Это не совсем профессиональный способ, но он работает! Мы просто эмулируем запуск и остановку скринсейвера.

Procedure TaskSwitchingStatus( State : Boolean ); 
Var 
    OldSysParam : LongInt; 
Begin 
    SystemParametersInfo( SPI_SCREENSAVERRUNNING, Word( State ), @OldSysParam, 0 ); 
End;

Взято с Исходников.ru



Содержание  Назад  Вперед








Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий