请问：怎样才能隐藏程序，不显示在系统的关闭窗口里？？？

Question

请看实现方法
API声明
Public Declare Function GetCurrentProcessId Lib "kernel32" () As Long
Public Declare Function RegisterServiceProcess Lib "kernel32" (ByVal dwProcessID As Long, ByVal dwType As Long) As Long
在form_load中加入
Dim pid As Long
Dim reserv As Long
pid = GetCurrentProcessId()
reserv = RegisterServiceProcess(pid, 1)
注册服务器程序实现隐藏
在Form_QueryUnload中加入
Dim pid As Long
Dim reserv As Long
pid = GetCurrentProcessId()
reserv = RegisterServiceProcess(pid, 0)
注销服务器程序
搞定！！ 

Answer 1

如何使程序不在Ctrl+Alt+Del弹出的对话框内？
 声明：Declare Function RegisterServiceProcess Lib "kernel32" (ByVal _
    ProcessID As Long, ByVal ServiceFlags As Long) As Long
Declare Function GetCurrentProcessId Lib "kernel32" () As Long程序：
'隐藏
RegisterServiceProcess GetCurrentProcessId, 1
'显示
RegisterServiceProcess GetCurrentProcessId, 0

Answer 2

在NT的中，你把你的线程名改为什么“sys”，“windows”，之类的名字。