如何得到其他应用程序运行中窗口的状态.txt

来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· 文本 代码 · 共 35 行

使 用 API的 GetWindowPlacement函 数 可 以 做 到 。 
你 肯 定 没 有 设 置 WINDOWPLACEMENT结 构 的 Length成 员 。 在 调 用 API时 必 须 牢 记 ， 如 果 有 Length成 员 必 须 设 置 ， 否 则 无 法 得 到 正 确 结 果 。 下 面 是 一 个 例 子 ： 
    Private Declare Function GetWindowPlacement Lib "user32" (ByVal hwnd As Long, lpwndpl As WINDOWPLACEMENT) As Long 
    Private Type RECT 
     Left As Long 
     Top As Long 
     Right As Long 
     Bottom As Long 
    End Type 
    Private Type POINTAPI 
     x As Long 
     y As Long 
    End Type 
    Private Type WINDOWPLACEMENT 
     Length As Long 
     flags As Long 
     showCmd As Long 
     ptMinPosition As POINTAPI 
     ptMaxPosition As POINTAPI 
     rcNormalPosition As RECT 
    End Type 
     
     
    Private Sub Command1_Click() 
     Dim wp As WINDOWPLACEMENT 
     
     wp.Length = Len(wp) 
     GetWindowPlacement hwnd, wp 
     Print wp.showCmd 
    End Sub 
<END>