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/) Powered by Discuz! X3.3