如何让 Ctrl+Alt+Del 组合键无效?

原始来源:王国荣

想要让 Ctrl+Alt+Del 组合键无效(不会调出 Windows 95的「关闭视窗」交谈窗),
可呼叫SystemParametersInfo API 函数, 细节如下:

 API 的宣告:

 Const SPI_SCREENSAVERRUNNING = 97

 Private Declare Function SystemParametersInfo Lib "user32" Alias  _
        "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, _
         lpvParam As Any, ByVal fuWinIni As Long) As Long

    Dim pOld As Boolean
    Call SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, pOld, 0)

 如果想将 Ctrl+Alt+Del 的功能还原, 则是:

    Dim pOld As Boolean
    Call SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, pOld, 0)

 注:此一方案只适用於 Windows 95, NT 并不适用。