如何在VB中调用api实现屏蔽热键

Question

我想知道在win2k或者xp下屏蔽ctrl+alt+del，请告知api函数或者实例代码

Answer 1

很麻烦,要替换 Windows里面的某些重要文件.最好别这样做,否则系统可能不稳定.
其实你可以直接在NT里设置每个用户的权限(手工设置或用动态目录之类设置).这样好多了.

Answer 2

能不能截取系统消息，让系统无法接收ctrl+alt+del这个消息，这样能否屏蔽ctrl+alt+del？

Answer 3

用不着！
Private 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
'允许获取和设置数量众多的windows系统参数
'uAction指定要设置的参数Private Sub Command1_Click() '起用 ctrl-alt-del
Dim ret As Integer
Dim pOld As Boolean
ret = SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, pOld, 0)
End Sub
 
Private Sub Command2_Click() '禁用 ctrl-alt-del
Dim ret As Integer
Dim pOld As Boolean
ret = SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, pOld, 0)
End Sub 

Answer 4

不能禁用 ctrl-alt-del，我在自己的win2000中试用了！！

Answer 5

禁用 win2k 的 C—A—D 需要自己写 DLL， VB 做不到的

Answer 6

我在xp下试了一下，上面的代码是不好用。那么用Hook应该可以吧？

Answer 7

告诉我吧，[email protected],谢拉