Office中国论坛/Access中国论坛

标题: 如何讓 Ctrl+Alt+Del 組合鍵無效？ [打印本页]

作者: zhengjialon 时间: 2002-12-31 17:37
标题: 如何讓 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 並不適用。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)