[分享]怎样使Ctrl-Alt-Delete无效

eyewitnes

*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)

tz-chf

把这三个里面的一个键弄弄坏就行了

一点通

谢谢分享,对于处理事件很有作用

tz-chf

不知道这是作什么用的，如果拔掉电源呢？

Grant

以下是引用eyewitnes在2007-6-9 11:28:00的发言：



*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)

98 下适用 2000,xp,2003下无法使用.

一点通

以下是引用Grant在2007-6-10 12:41:00的发言：



98 下适用 2000,xp,2003下无法使用.

没有调试过,正常来说98能适用,高版本也适用的,不知微软是如何处理这些事情的

Grant

以下是引用一点通在2007-6-10 21:22:00的发言：



没有调试过,正常来说98能适用,高版本也适用的,不知微软是如何处理这些事情的

NT系统需挂钩子.

如果用C写个DLL就简单多了.

andymark

这种方法无用的