Vipul Shah
Oct 31st, 1999, 12:24 PM
Hi,
I use the following function which enable/disable the following key combinations
<Ctrl-Alt-Del>
<Ctrl-esc>
<Alt-s>
<Alt-Tab>
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
But what I want is as follows.
1) To make <Alt-Tab> to be enabled &
<Ctrl-Alt-Del>,<Ctrl-esc>,<Alt-s> disabled
2) Assign hotkeys to activate different
applications even if <Ctrl-Alt-Del>,<Ctrl-esc>,
<Alt-s>,<Alt-Tab> are disabled
Kindly let me know the solution.
Thanking you
regards
Vipul Shah
I use the following function which enable/disable the following key combinations
<Ctrl-Alt-Del>
<Ctrl-esc>
<Alt-s>
<Alt-Tab>
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
But what I want is as follows.
1) To make <Alt-Tab> to be enabled &
<Ctrl-Alt-Del>,<Ctrl-esc>,<Alt-s> disabled
2) Assign hotkeys to activate different
applications even if <Ctrl-Alt-Del>,<Ctrl-esc>,
<Alt-s>,<Alt-Tab> are disabled
Kindly let me know the solution.
Thanking you
regards
Vipul Shah