在VB应用程序中如何编程实现禁用热键？ 如果你想做个屏保或禁止别人使用热键(包括Ctrl+Alt+ Delete)，以下代码可以实现： 首先定义一常量： Private 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
再定义一个子过程：
Public Sub AllowKeys(bParam As Boolean)
Dim lRetVal As Long, bOld As Boolean
lRetVal = SystemParametersInfo(SPI_SCREENSAVERRUN-NING, bParam, bOld, 0&&)
End Sub
最后，在任意事件中加入AllowKeys(True/False),当AllowKeys为真时会禁止所有热键。
(凌海涛)