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) Pak, pro vypnutí horkých kláves, použijte volání: Call DisableCtrlAltDelete(True) Pokud chcete opět klávesy zapnout: Call DisableCtrlAltDelete(False) |
![]() |
Autor: The Bozena |