System Delphi

  1. Home
  2. Delphi
  3. System
  4. How to disable and enable Ctrl + Alt + Del
Title: How to disable and enable Ctrl + Alt + Del?
Question: How to disable and enable Ctrl + Alt + Del?
Answer:
Uses:
None
Component:
TButton
Disable Ctrl + Alt + Del:
procedure TForm1.Button1Click(Sender: TObject);
var
OldValue : LongBool;
begin
SystemParametersInfo(97, Word(False),@OldValue);
end;
Enable Ctrl + Alt + Del:
procedure TForm1.Button1Click(Sender: TObject);
var
OldValue : LongBool;
begin
SystemParametersInfo(97, Word(True),@OldValue);
end;