Как разрешить или запретить переключение между задачамиDelphi , Программа и Интерфейс , Приложения чужиеКак разрешить или запретить переключение между задачамиАвтор: http://www.sources.ru (только для ALT+TAB и CTRL+ESC) Это не совсем профессиональный способ, но он работает! Мы просто эмулируем запуск и остановку скринсейвера. procedure TaskSwitchingStatus(State: Boolean); var OldSysParam: LongInt; begin SystemParametersInfo(SPI_SCREENSAVERRUNNING, Word(State), @OldSysParam, 0); end; Код, который я предоставил, является простым способом эмулировать запуск или остановку экранной саверы в Windows, что может использоваться для предотвращения или разрешения переключения задач (ALT+TAB и CTRL+ESC) в приложениях Windows. Этот метод не официальный и не рекомендован Microsoft, но он работает. Вот, что код делает:
Идея за этим кодом заключается в том, что когда экранная савера запущена, переключение задач блокируется в Windows. Симулируя запуск или остановку экранной саверы, вы можете эффективно предотвратить или разрешить переключение задач. Обратите внимание, что этот метод имеет некоторые ограничения и может не работать как ожидалось в всех ситуациях:
Более официальный способ предотвратить переключение задач - использовать функцию С помощью процедуры TaskSwitchingStatus можно разрешить или запретить переключение между задачами с помощью сочетаний клавиш ALT+TAB и CTRL+ESC. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Приложения чужие ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |