在任务管理器中隐藏自己

djrm_yb

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
Private Const GW_OWNER = 4
Private Const GW_HWNDLAST = 1
Private Const SW_HIDE = 0
Private Sub Form_Load()
    Dim lphWnd As Long
    lphWnd = GetWindow(Me.hwnd, GW_OWNER)
    'lphWnd = GetWindow(Me.hwnd, GW_HWNDLAST) '这样将隐藏桌面图标
    ShowWindow lphWnd, SW_HIDE
End Sub


呵呵，不要抱太高的期望，只是在任务管理器的“应用程序”中隐藏而已，在“进程”中仍然会显示出来的。。。。

download

app.taskvisible=false 就行了

djrm_yb

呵呵这样是没错，，不过我那个改改能干点别的。（见注释掉了的那一句）

download

注释看不懂，
隐藏桌面图标是 什么意思？桌面上的回收站消失？

djrm_yb

4# download
你运行一下不就得了，，也没什么危害，关掉程序后就正常了