'在任务管理器的应用程序栏中隐身
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 SW_HIDE = 0
Private Const GW_OWNER = 4
Private Const WM_CLOSE = &H10
Private Sub Form1_Load()
'以下代码使程序隐身
'在任务管理器的“应用程序”栏隐藏
Dim rc As Long
Dim ownerhwnd As Long
Me.Visible = False
ownerhwnd = GetWindow(Me.hwnd, GW_OWNER)
rc = ShowWindow(ownerhwnd, SW_HIDE)
end sub
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 SW_HIDE = 0
Private Const GW_OWNER = 4
Private Const WM_CLOSE = &H10
Private Sub Form1_Load()
'以下代码使程序隐身
'在任务管理器的“应用程序”栏隐藏
Dim rc As Long
Dim ownerhwnd As Long
Me.Visible = False
ownerhwnd = GetWindow(Me.hwnd, GW_OWNER)
rc = ShowWindow(ownerhwnd, SW_HIDE)
end sub