VB6 代码管家-判断某窗体是否最小化
发表于 2024年12月8日 21:50
返回列表Private Declare Function IsIconic Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Sub Timer1_Timer()
Dim a As Long
a = FindWindow(vbNullString, "新倚天2")
If IsIconic(a) = 1 Then Me.Caption = "已被最小化" Else Me.Caption = "未被最小化"
End Sub