如何讓 Ctrl+Alt+Del ,Alt+Tab,Ctrl+Esc組合鍵無效
想要讓 這些組合鍵無效(不會調出 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) 如果想將這些的功能還原, 則是: Dim pOld As Boolean
Call SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, pOld, 0) 註:此一方案只適用於 Windows 95, NT 並不適用。
想要讓 這些組合鍵無效(不會調出 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) 如果想將這些的功能還原, 則是: Dim pOld As Boolean
Call SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, pOld, 0) 註:此一方案只適用於 Windows 95, NT 並不適用。
解决方案 »
- VB中 在TEST1(0) TEST1(1)....TEST1(17)中分别输入 要求在RichTextBox1中显示
- 高手相助,求VB6+SQL数据库禁用解决方案.50分,在线急等!!!!
- Datetime 的问题!!!急!!!
- 字符串"005"加一后怎么是"6",如何变成"006"
- 实用代码:【源码下载】Build Control——VBIDE的编译过程控制插件
- to TechnoFantasy(www.applevb.com):我在拜读了您的关于实现网页自动提交的文章后,有一个简单的问题,望解答!
- ado控件问题,adodc提示,对象打开时,不允许操作。
- 一个很弱智的问题,在线等
- 请教 ,关于Oracle连接的问题
- 我很菜,问一下ActiveX有什么用,具体的,谢谢了
- 查询的问题,急!!!
- 请教高手!如何用VB向EXCEL中画柱状图和圆饼图?
声明如下:
Public Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long
使用:
call SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, false, 0)
Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
Private Const MF_BYPOSITION = &H400&
Private Sub Form_Load()
Dim hwndMenu As Long
Dim c As Long
hwndMenu = GetSystemMenu(Me.hwnd, 0)
c = GetMenuItemCount(hwndMenu)
DeleteMenu hwndMenu, c - 1, MF_BYPOSITION
c = GetMenuItemCount(hwndMenu)
DeleteMenu hwndMenu, c - 1, MF_BYPOSITION
End Sub
------------------------------------------------------
复制以下代码到程序中的某个模块:
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_SCREENSAVERRUNNING, bParam, bOld, 0&) End Sub