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

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

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

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

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

procedure TaskSwitchingStatus(State: Boolean);

var

OldSysParam: LongInt;

begin

SystemParametersInfo(SPI_SCREENSAVERRUNNING,

Word(State), @OldSysParam, 0);

end;

{/codecitation}

Добавить комментарий