如何让 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 并不适用。