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

VB技巧问答10000例 VB技巧问答10000例

使 用 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>