标题: 怎样利用API函数使Ctrl-Alt-Delete无效？ [打印本页] 作者: 徐欣 时间: 2013-7-2 13:22 标题: 怎样利用API函数使Ctrl-Alt-Delete无效？ 作者: 淡写轻描 时间: 2013-7-2 13:30
*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)