level 6
hehao_00
楼主
这将涉及到两种情况: 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来释放系统资源
2007年02月10日 06点02分
1
