如何实现对一个Windows中正在运行的窗口进行隐藏，来者有分

Question

sendmessage me.hwnd, WM_SHOWWINDOW, SW_HIDE, 0

Answer 1

Option Explicit
Private Const WM_SHOWWINDOW = &H18
Private Const SW_HIDE = 0
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _
     ByVal hwnd As Long, _
     ByVal wMsg As Long, _
     ByVal wParam As Long, _
     lParam As Any) As LongPrivate Sub Command1_Click()
Debug.Print SendMessage(Me.hwnd, WM_SHOWWINDOW, SW_HIDE, 0)
End Sub

Answer 2

哈哈,分是我的!
用ShowWindow!!!
Private Declare Function ShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long'隐藏:
showwindow 任意窗口的hwnd,flase显示:
showwindow 任意窗口的hwnd,true这样做可以隐藏任意进程的窗口!