怎么让应用程序不在任务管理器中显示？

[hycapril]

谢谢各位。

[ukyoxh]

这个就不知道了,如果可以的话病毒都可以自动隐藏了

[hycapril]

在进程页中显示没有关系，不要再应用程序页显示就行了。

[dragon525]

可以的，但是在进程里面还是可以看得到的，代码如下：
----------------------------------------------------------------------------
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Const SW_HIDE = 0
Const GW_OWNER = 4

Private Sub Command1_Click()
Dim rc As Long
Dim OwnerhWnd As Long

Me.Visible = False '使窗体不可见
'从任务管理器应用程序列表中隐藏
OwnerhWnd = GetWindow(Me.hwnd, GW_OWNER)
rc = ShowWindow(OwnerhWnd, SW_HIDE)

End Sub

[limitworld]

应该是这样的
private sub form_load()
dim ID as long
ID=getcurrentproccessid(me.hwnd)
registersystemservice id
end sub

[sxlisgua]

不知道

[chinaren502]

Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Const SW_HIDE = 0
Const GW_OWNER = 4

Private Sub Command1_Click()
Dim rc As Long
Dim OwnerhWnd As Long

Me.Visible = False '使窗体不可见
'从任务管理器应用程序列表中隐藏
OwnerhWnd = GetWindow(Me.hwnd, GW_OWNER)
rc = ShowWindow(OwnerhWnd, SW_HIDE)

End Sub

[daisy8675]

偶隻有辦法把資源管理器清不出的程序列出來，呵呵

[yinweihong]

visibel=false
然后注册为系统服务

[dragon525]

在98下可以用四楼的方法注册系统服务的，但RegisterServiceProcess这个api在win2000及win2000以后就被取消了。


既然楼主已经说了“在进程页中显示没有关系，不要再应用程序页显示就行了”

我的代码是完全满足要求的呀！

[pigpag]

App.TaskVisible = False

[fuanwei]

from1.showintaskbar=false

[fuanwei]

写错了

[kmzs]

应该行了

[huwei001982]

注冊為系統服務，四樓

[pigpag]

晕，岂不误导?!