Legge la taskBar
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long Const GW_HWNDFIRST = 0 Const GW_HWNDNEXT = 2 Dim CurrWnd As Long Dim Length As Long Dim TaskName As String Dim Parent As Long Private Sub Command1_Click() LoadTaskList End Sub Sub LoadTaskList() List1.Clear CurrWnd = GetWindow(Form1.hwnd, GW_HWNDFIRST) While CurrWnd <> 0 Parent = GetParent(CurrWnd) Length = GetWindowTextLength(CurrWnd) TaskName = Space$(Length + 1) Length = GetWindowText(CurrWnd, TaskName, Length + 1) TaskName = Left$(TaskName, Len(TaskName) - 1) If Length > 0 Then If TaskName <> Me.Caption Then List1.AddItem TaskName End If End If CurrWnd = GetWindow(CurrWnd, GW_HWNDNEXT) DoEvents Wend End Sub |