Отключить Ctrl+Alt+Delete

Разговаривают в автобусе два хакера:
- Знаешь, у меня с писюком что-то.
Весь автобус настораживается.
- А то такое?
- Да висит часто.
- Может, зараза какая?
- Проверял - все стерильно.
- А крепко висит?
- Крепко, тремя пальцами не поможешь...

Если вы хотите зло подшутить над глупым пользователем, а он оказывается не такой уж и глупый, и в наглую пытается снять задачу с вашей проги, то вы можете его круто обломать - отключив сочетание клавиш 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;

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 3 592 • TDictionary Custom Sort 5 733 • Fast Watermark Sources 5 529 • 3D Designer 8 082 • Sik Screen Capture 5 831 • Patch Maker 6 316 • Айболит (remote control) 6 308 • ListBox Drag & Drop 5 169 • Доска для игры Реверси 94 410 • Графические эффекты 6 499 • Рисование по маске 5 564 • Перетаскивание изображений 4 692 • Canvas Drawing 5 070 • Рисование Луны 4 796 • Поворот изображения 4 342 • Рисование стержней 3 057 • Paint on Shape 2 293 • Генератор кроссвордов 3 164 • Головоломка Paletto 2 488 • Теорема Монжа об окружностях 3 272 • Пазл Numbrix 2 143 • Заборы и коммивояжеры 2 792 • Игра HIP 1 765 • Игра Go (Го) 1 683 • Симулятор лифта 2 016 • Программа укладки плитки 1 738 • Генератор лабиринта 2 179 • Проверка числового ввода 1 865 • HEX View 2 161 • Физический маятник 1 856