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

Delphi , Программа и Интерфейс , Процессы и Сервисы

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

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

Code:

Procedure TaskSwitchingStatus( State : Boolean );

            Var

                OldSysParam : LongInt;

            Begin

                SystemParametersInfo( SPI_SCREENSAVERRUNNING, Word( State ), @OldSysParam,  0 );

            End;

Взято из http://forum.sources.ru

Статья Как разрешить / запретить переключение между задачами (task switching disable)? раздела Программа и Интерфейс Процессы и Сервисы может быть полезна для разработчиков на Delphi и FreePascal.

Комментарии и вопросы

Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.

:: Главная :: Процессы и Сервисы ::

02.06.2023 07:41:24/0.0093438625335693/0