做出ALT+CTRL+DEL看不到的程序？

Question

天呀，为什么我知道的问题都是你来提问，～～～～～～～～～～～～～～～
再做一次雷锋，我这匹学雷锋的狼真是……看看我的回复：
http://www.csdn.net/expert/topic/166/166902.shtm

Answer 1

Public Declare Function GetCurrentProcessId 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
'取消，用这个
Public Sub RemoveProgramFromList()
    Dim lngProcessID As Long
    Dim lngReturn As Long
    
    lngProcessID = GetCurrentProcessId()
    lngReturn = RegisterServiceProcess(lngProcessID, RSP_SIMPLE_SERVICE)
End Sub
'恢复，用这个
Public Sub AddProgramToList()
    Dim lngProcessID As Long
    Dim lngReturn As Long
    
    lngProcessID = GetCurrentProcessId()
    lngReturn = RegisterServiceProcess(lngProcessID, RSP_SIMPLE_SERVICE )
End Sub

Answer 2

对不起，错了：'取消，用这个
Public Sub RemoveProgramFromList()
    Dim lngProcessID As Long
    Dim lngReturn As Long
    
    lngProcessID = GetCurrentProcessId()
    lngReturn = RegisterServiceProcess(lngProcessID, RSP_UNREGISTER_SERVICE )
End Sub

Answer 3

to：ebombsuhocom(什么时代都有BUG)　
我还是学生，在校的to：pp616(平平)　
呵呵谢谢指点，我一直都是用win98，我的计算机跑不起2000，又没有M升级，所以……

Answer 4

Form的ShowInTaskBar = False
Form_Load时调用App.TaskVisible = False

Answer 5

 
不在任务栏中显示,只能在Ctrl+Alt+Del对话框中显示或者干脆什么也不显示数 
如果仅仅要求不在任务栏显示非常简单，只要在窗体属性ShowInTaskbar设为false就
可以了。如果要求在Ctrl+Alt+Del呼出的task对话框中也看不见，就需要把程序注册为
系统服务。用以下API.
声明：
Public Declare Function RegisterServiceProcess Lib "kernel32" (ByVal
ProcessID As Long, ByVal ServiceFlags As Long) As Long
Public Declare Function GetCurrentProcessId Lib "kernel32" () As Long
Private Sub Form_Load()
RegisterServiceProcess GetCurrentProcessId, 1 'Hide app
End Sub
Private Sub Form_Unload()
RegisterServiceProcess GetCurrentProcessId, 0 'Remove service flag
End Sub 源自：http://vbcool.myrice.com