win2000不能这样屏蔽ctrl+alt+del?

[boytan]

Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemPar
ametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam A
s Any, ByVal fuWinIni As Long) As Long
Private Const SPI_SCREENSAVERRUNNING = 97
Private Sub disablectrlaltdel(bdisable As Boolean)
Dim x As Long
x = SystemParametersInfo(SPI_SCREENSAVERRUNNING, bdisable, CStr(1), 0)
End Sub
Private Sub Command1_Click()
Call disablectrlaltdel(False)
End Sub
Private Sub Form_Load()
Call disablectrlaltdel(True)
End Sub

为什么不能屏蔽掉ctrl+alt+del?

[boytan]

这么初级的问题难道没人知道吗?

[kook]

对，这个函数只对98有效，

2000可以用键盘钩子来控制C+A+D

[boytan]

键盘钩子?怎么用?

[tiaozi2000]

就是键盘HOOK