使Ctrl-Alt-Delete无效

时　间:2007-10-22 13:00:22
作　者:cuxun   ID：42  城市：广州
摘　要:使Ctrl-Alt-Delete无效
正　文:

怎样使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)