Habilitando e Desabilitando o Ctrl+Alt+Del e o Alt+Tab com delphi

Habilitando / Desabilitando o Ctrl+Alt+Del e o Alt+Tab

Para desabilitar o Ctrl+Alt+Del, o Alt+Tab e o Ctrl+Esc, utilize a seguinte rotina:

procedure TNomeDoForm.ButtonNameClick(Sender: TObject);
var
Numero : Integer;
begin
SystemParametersInfo (97, Word (True), @Numero, 0);
end;

E para reabilitar, utilize a rotina abaixo:

procedure TNomeDoForm.ButtonName2Click(Sender: TObject);
var
Numero : Integer;
begin
SystemParametersInfo(97, Word (False), @Numero, 0);
end;