Office中国论坛/Access中国论坛

标题: [分享]怎样使Ctrl-Alt-Delete无效 [打印本页]

作者: eyewitnes 时间: 2007-6-9 19:28
标题: [分享]怎样使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)

作者: tz-chf 时间: 2007-6-9 19:33
把这三个里面的一个键弄弄坏就行了

作者: 一点通 时间: 2007-6-9 19:33
谢谢分享,对于处理事件很有作用

作者: tz-chf 时间: 2007-6-9 20:00
不知道这是作什么用的，如果拔掉电源呢？

作者: Grant 时间: 2007-6-10 20:41

以下是引用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下无法使用.

作者: 一点通 时间: 2007-6-11 05:22

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

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

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

作者: Grant 时间: 2007-6-11 07:42

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

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

NT系统需挂钩子.

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

作者: andymark 时间: 2008-3-27 20:47
这种方法无用的

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)