请教:怎样屏蔽系统热键?

ashamwolf 2002-06-07 05:42:15
问题如标题,多谢了!!!
...全文
33 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
xxlroad 2002-06-09
  • 打赏
  • 举报
回复
在Win2000下好象是没有用
KAIBate 2002-06-09
  • 打赏
  • 举报
回复
学习:)
ashamwolf 2002-06-08
  • 打赏
  • 举报
回复
在Win2000下有用吗?
ashamwolf 2002-06-08
  • 打赏
  • 举报
回复
多谢了,不过还有问题:如果我要屏蔽其他键呢,比如说Alt+Tab,该怎么修改?
mudai 2002-06-07
  • 打赏
  • 举报
回复
'''在模块中.声名API直接调用就可以了
Private Declare Function SystemParametersInfo Lib _
"user32" Alias "SystemParametersInfoA" (ByVal uAction _
As Long, ByVal uParam As Long, ByVal lpvParam As Any, _
ByVal fuWinIni As Long) As Long

Sub DisableCtrlAltDelete(bDisabled As Boolean)
' Disables Control Alt Delete Breaking as well as Ctrl-Escape
Dim x As Long
x = SystemParametersInfo(97, bDisabled, CStr(1), 0)
End Sub

在程序中直调接用就可以了

Private Sub Command1_Click()
DisableCtrlAltDelete True
End Sub
孙小雄 2002-06-07
  • 打赏
  • 举报
回复
Private Sub Form_Load()
Command1.Caption = "屏蔽"
End Sub

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
Private Const SPI_SCREENSAVERRUNNING = 97
Private Sub Command1_Click()
Dim r As Integer
Dim p As Boolean
If Command1.Caption = "屏蔽" Then
'使Ctrl+Alt+Del有效
r = SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, p, 0)
Command1.Caption = "有效"
Else
'使Ctrl+Alt+Del无效
r = SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, p, 0)
Command1.Caption = "屏蔽"
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
Dim r As Integer
Dim p As Boolean
'退出前使ALT+CTL+DEL有效
r = SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, p, 0)
End Sub



zzzwww 2002-06-07
  • 打赏
  • 举报
回复
已有类似问题很多,搜索一下。

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧