Как разрешить / запретить переключение между задачами?
Falk0ner, вс, 06/07/2008 - 15:34.
только для ALT+TAB и CTRL+ESC)
Это не совсем профессиональный способ, но он работает! Мы просто эмулируем запуск и остановку скринсейвера.
Procedure TaskSwitchingStatus( State : Boolean );
Var
OldSysParam : LongInt;
Begin
SystemParametersInfo( SPI_SCREENSAVERRUNNING, Word( State ), @OldSysParam, 0 );
End;
Var
OldSysParam : LongInt;
Begin
SystemParametersInfo( SPI_SCREENSAVERRUNNING, Word( State ), @OldSysParam, 0 );
End;
Взято из http://forum.sources.ru
Отправить комментарий