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



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

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

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

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

Далее: Как сообщить всем формам (и невидимым) об изменении глобальных значений »»