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