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

Советы » Клавиши » Отключить 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;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com