Zablokování CTRL+ALT+DEL a CTRL+ESC

Postup:
Založte nový projekt. Do deklarační části formuláře zapište:

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

Sub DisableCtrlAltDelete(bDisabled As Boolean)
    Dim X As Long
    X = SystemParametersInfo(97, bDisabled, CStr(1), 0)
End Sub

Pak, pro vypnutí horkých kláves, použijte volání:

Call DisableCtrlAltDelete(True)

Pokud chcete opět klávesy zapnout:

Call DisableCtrlAltDelete(False)

Zpět

Autor: The Bozena