如何封锁ctl+alt+del键？

[xzjxu]

如果能在按下ctl+alt+del键后，弹出对话框更好。

[xzjxu]

98系统

[babytree666]

我在XP下用 lihonggen0老师的方法试了一下，结果说“找不到DLL入口点，RegisterServiceProcess in kernel32”
我也很想知道怎样屏蔽，请教了。

[XLYT]

Option Explicit

Const s = 97

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

Sub Main()
Dim ret As Long
Dim p As Boolean

ret = SystemParametersInfo(s, True, p, 0)
End Sub

[babytree666]

雨田老师的方法在XP下不灵！嗨，有没有两全的方法呢？

[fbmsf]

9x or nt/2000???

[lihonggen0]

1、屏蔽Ctrl+Alt+Del：

Option Explicit

Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long

Private Declare Function GetCurrentProcess Lib "kernel32" () As Long

Private Declare Function RegisterServiceProcess Lib "kernel32" (ByVal dwProcessID As Long, ByVal dwType As Long) As Long



Private Const RSP_SIMPLE_SERVICE = 1

Private Const RSP_UNREGISTER_SERVICE = 0



Private Sub MakeMeService()

Dim pid As Long

Dim reserv As Long

pid = GetCurrentProcessId()

RegisterServiceProcess pid, RSP_SIMPLE_SERVICE

End Sub



Private Sub UnMakeMeService()

Dim pid As Long

Dim reserv As Long

pid = GetCurrentProcessId()

RegisterServiceProcess pid, RSP_UNREGISTER_SERVICE

End Sub



Private Sub Command1_Click()

Call MakeMeService 'ʹ´°¿ÚÒþ²Ø

End Sub



Private Sub Command2_Click()

Call UnMakeMeService 'ʹ´°¿ÚÏÔʾ

End Sub

[xzjxu]

以上方法在2000上都不行

[babytree666]

不知这种方法行不行，就是让键盘上的一个键失效，比如让CTRL键失效，这样一来，不是按CTRL+ALT+DEL时只相当于按ALT+DEL，就可以了，不知这种思路对不对，可是我不会编：（

[twinking]

98下比较容易
在2000下就比较复杂了
不知道你想达到怎样的目的

[babytree666]

其实想让这三个键失效的初衷是：编了一个自认为完美的鼠标锁小程序，因为是初学，成功后高兴坏了，后来发现，锁住鼠标后按CTRL+ALT+DEL后锁就失效了，鼠标可以到处跑……