怎样使Ctrl-Alt-Delete无效? 可以使用下面代码来实现
API函数声明
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
' 使Ctrl-Alt-Delete无效 :
Call DisableCtrlAltDelete(True)
' 恢复Ctrl-Alt-Delete :
Call DisableCtrlAltDelete(False)