Разговаривают в автобусе два хакера:
- Знаешь, у меня с писюком что-то.
Весь автобус настораживается.
- А то такое?
- Да висит часто.
- Может, зараза какая?
- Проверял - все стерильно.
- А крепко висит?
- Крепко, тремя пальцами не поможешь...
Если вы хотите зло подшутить над глупым пользователем, а он оказывается не такой уж и глупый, и в наглую пытается снять задачу с вашей проги, то вы можете его круто обломать - отключив сочетание клавиш Ctrl+Alt+Delete:
Например, у нас есть две кнопки (назовёт их Disablebtn & Enablebtn):
//Отключитьprocedure TForm1.DisablebtnClick(Sender: TObject);
var
b: boolean;
begin
b := false;
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, @b, 0);
end;
//Включитьprocedure TForm1.EnablebtnClick(Sender: TObject);
var
b: boolean;
begin
b := false;
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0, @b, 0);
end;
В статье описывается способ отключения сочетания клавиш Ctrl+Alt+Delete в программе с помощью функции SystemParametersInfo и двух кнопок Disablebtn и Enablebtn.
Комментарии и вопросы
Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS
Telegram-канал