VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 控制Ctrl+Del+Alt键
发表评论(0)作者:, 平台:, 阅读:10193, 日期:2000-03-12
需要调用API函数″SystemParametersInfo″拦截″ctrl+alt+del″,″ctrl+esc″,″alt+tab″三组热键。将以下代码加入你的一般模块:

  Option Explicit

  Public Declare Function SystemParametersInfo Lib ″user32″ Alias ″SystemParametersInfoA″ _

  (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByValfuWinIni As Long) As Long

  Public Const SPL_SCREENSAVERRUNNING = 97

  以下加入你的窗体

  Option Explicit

  ′读取窗体时使热键失效

  Private Sub Form_Load()

  SystemParametersInfo SPL_SCREENSAVERRUNNING, True, ByVal 1&, 0

  End Sub

  ′程序退出时使热键有效

  Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

  SystemParametersInfo SPL_SCREENSAVERRUNNING, False, ByVal 1&, 0

  End Sub

  切记:一定要一起使用,否则使热键失效后,只有重新启动Windows热键才会恢复。