在注册表中建立一个新项，屏蔽CTRL+ALT+DEL，这样做对吗？

Question

Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hkey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hkey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hkey As Long) As Long
Private Sub Command1_Click()
Dim Value As Long    'value = 1 -- 禁用， value = 0 --　不禁用Value = 0'修改注册表屏蔽任务管理器RegCreateKey HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\Policies\System", hkey
    
RegSetValueEx hkey, "DisableTaskMgr", 0, REG_DWORD, Value, 4End Sub

Answer 1

最简单的方法就是把taskmgr.exe这个文件给删除了
那样怎么办也不可以使用CTRL+ALT+DEL这三个键了

Answer 2

恩，确实过分。。最近写了一个。。还真难为我了。。
98下很容易了
Const SPI_SCREENSAVERRUNNING = 97
Private Declare Function SystemParametersInfo Lib "User32" Alias _
    "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As _
    Any, ByVal fuWinIni As Long) As LongPrivate Sub Command1_Click()
    Dim pOld As Boolean
    Call SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, pOld, 0)
End SubPrivate Sub Command2_Click()
    Dim pOld As Boolean
    Call SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, pOld, 0)
End SubPrivate Sub Form_Load()
Command1.Caption = "bukeyong"
Command1.Caption = "keyong"
End Sub
2K下我是用修改Msgina.dll导出的WlxLoggedOnSAS的跳转指令实现的谁有更好的办法吗。太麻烦了我

Answer 3

XP中taskmgr.exe是删不了的，不信你试一下，不过前提是没有关系统保护。

Answer 4

哎，不是任务管理器的问题。在XP下，若是经典登录，而不是欢迎屏幕，那么CTRL+ALT+DEL显示的并非任务管理器。