如何让Ctrl Alt Del 组合键无效

　　


                  这将涉及到两种情况:

1.按下Ctrl Alt Del后,不会调出Windows的结束任务对话框

2.按下Ctrl Alt Del后,会调出Windows的结束任务对话框,但本程序不出现在其中

下面分别说明:

第一种情况

可调用SystemParametersInfo API 函数,细节如下:

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 Long

dim pOld As Boolean

Call SystemParametersInfo(SPI_SCREENSAVERRUNNING,True,pOld,0)

如想将Ctrl ALt Del 的功能还原,只需将True换为False

注意:此方案只适用于Windows 9X,NT不适用

第二种情况:(译自vb-world.net)

要想做到这一点,你必须将你的程序注册为一个Service,这将通过把你的应用程序的Process

ID传递给RegisterService API

声明部分:

将一下这些代码复制到模块的声明部分

Public Declare Function GetCurrentProcessId _

Lib "kernel32" () As Long

Public Declare Function GetCurrentProcess _

Lib "kernel32" () As Long

Public Declare Function RegisterServiceProcess _

Lib "kernel32" (ByVal dwProcessID As Long, _

ByVal dwType As Long) As Long

Public Const RSP_SIMPLE_SERVICE = 1

Public Const RSP_UNREGISTER_SERVICE = 0

过程:

调用MakeMeService使你的程序不出现在结束任务对话框中

Public Sub MakeMeService()

Dim pid As Long

Dim reserv As Long

pid = GetCurrentProcessId()

regserv = RegisterServiceProcess(pid, RSP_SIMPLE_SERVICE)

End Sub

使你的程序重新出现在结束任务对话框中,调用UnMakeMeService

Public UnMakeMeService()

Dim pid As Long

Dim reserv As Long

pid = GetCurrentProcessId()

regserv = RegisterServiceProcess(pid, _

RSP_UNREGISTER_SERVICE)

'End Code

不要忘了在关闭你的程序时调用UnMakeService来注销其Service来释放系统资源