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

Главная страница сайта "Delphi Sources"

Раздел "Исходники"

Форум

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

Автор: http://www.sources.ru

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

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

procedure TaskSwitchingStatus(State: Boolean);
var
  OldSysParam: LongInt;
begin
  SystemParametersInfo(SPI_SCREENSAVERRUNNING,
    Word(State), @OldSysParam, 0);
end;