以下是引用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)
以下是引用Grant在2007-6-10 12:41:00的发言:
98 下适用 2000,xp,2003下无法使用.
以下是引用一点通在2007-6-10 21:22:00的发言:
没有调试过,正常来说98能适用,高版本也适用的,不知微软是如何处理这些事情的
欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) | Powered by Discuz! X3.3 |