VB Source

From Mesdoc

[edit] Inhiber Ctrl-Alt-Suppr

Utiliser l'API de Windows : SystemParametersInfo

Il faut d'abord déclarer la fonction:

Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA"
(ByVal  uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long

puis:

Call SystemParametersInfo(97, True, "1", 0) pour désactiver les touches Ctrl-Alt-Suppr
Call SystemParametersInfo(97, False, "1", 0) pour activer les touches Ctrl-Alt-Suppr