怎样利用API函数使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)