VB Source

From Mesdoc

Revision as of 11:54, 24 July 2006 by 81.80.101.92 (Talk)
(diff) ←Older revision | view current revision (diff) | Newer revision→ (diff)

[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
Personal tools