Список всек открытых окон в панели задач (не всех процессов)

[XairOn]

Возникла проблема с получением списка открытых окон. Вобщем мне нужно в ListBox вывести весь список открытых окон, но не

список задач, а только тех программ и окон, которые находятся в "панели задач". Как это сделать?

[tyomitch]

Примеры использования шелл-хука: http://vbrussian.com/Controls.asp?ID=58 (от Оловянникова), http://www.codeguru.com/forum/showthrea ... did=256230
Тебе же, похоже, надо просто перечислить все окна (EnumWindows) и выбрать те, у который установлен расширенный стиль WS_EX_APPWINDOW

[XairOn]

Ааа...ммм... простите-извините, но я ничего не понял... если не трудно, можно поподробнее как мне список получить?!

[tyomitch]

Форма с листбоксом:

Код: Выделить всё

Option Explicit

Private Sub Form_Load()
GetAllWindows
End Sub


Модуль:

Код: Выделить всё

Option Explicit
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex 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
Private Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
Private Declare Function IsWindowVisible Lib "user32" (ByVal hWnd As Long) As Long
Private Const GWL_STYLE = -16&
Private Const GWL_EXSTYLE = -20&
Private Const WS_EX_APPWINDOW = &H40000
Private Const WS_NOT_OVERLAPPED = &HC0000000
Private Const WS_BORDER = &H800000

Public Sub GetAllWindows()
EnumWindows AddressOf EnumWindowsProc, 0
End Sub

Private Function EnumWindowsProc(ByVal hWnd As Long, ByVal lParam As Long) As Long
Dim Caption As String * 256
If IsWindowVisible(hWnd) Then
    If (GetWindowLong(hWnd, GWL_EXSTYLE) And WS_EX_APPWINDOW) Or _
        (((GetWindowLong(hWnd, GWL_STYLE) And WS_NOT_OVERLAPPED) = 0) And _
        (GetWindowLong(hWnd, GWL_STYLE) And WS_BORDER)) Then
        GetWindowText hWnd, Caption, 256
        Form1.List1.AddItem Caption
    End If
End If
EnumWindowsProc = 1
End Function


Чтобы динамически обновлять окно при добавлении/убавлении/переименовании окон, ставь шелл-хук, как в примерах по ссылкам.

[XairOn]

Спасибо большое, всё вроде работает, но... когда открыта какая-нибудь папка (или несколько папок), программа почему-то в листбокс вставляет пустую строку в произвольном месте. Как это этого избавиться?

[XairOn]

Небольшая поправка, пустая строка появляется, когда в трее какая-нибудь программка сидит (хотя не всегда), вобщем, етут

логика вообще непонятная, например когда у меня flesh get в трей свернут, пустая строка появляется, но если там аська

например сидит или dialer всё нормально, стоит появиться там flash get'у, как начинаются глюки. Можно ли как-нибудь решить

эту проблему???

[XairOn]

Что-то вообще я не понял, метод этот, по крайней мере у меня вообще хреново работает, некоторые программы не ищутся (особенно

если они свёрнуты), они почти все не ищутся . Это разве нормально?

[GSerg]

Странно всё это
Таксбар - это, в конечном итоге, ToolbarWindow32. Я пытался ему слать всякие рульные сообщения TB, но ничего так и не добился. Такое ощущение, что он их перехватывает и в defwindowproc не передаёт
Во всяком случае, есть сообщение TB_GETBUTTONTEXT. Ему нуно указать ID. ID можно получить, зная index, через TB_GETBUTTON. Но GETBUTTON всегда возвращает успех, хотя все значения структуры заполняет нулями. Так что не получается никак узнать этот самый TEXT