Zablokovßnφ CTRL+ALT+DEL a CTRL+ESC
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)