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

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;

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

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

:: Главная :: Приложения чужие ::