如何讓 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 並不適用。