Реализация своей панели задач

[Williams]

Добрый день!
Вопрос состоит в следующем.
Требуется реализовать собственную панель задач. Соответственно, нужно получать список окон. Делать это по таймеру не рационально. Если другие варианты? Например, получать уведомления о создании окон и наоборот.

[Proxy]

Самый мегаудобный вариант - выпадающее меню. И при клике на кнопку, вызывающего это меню обновлять. Мне бы так нравилось больше, чем в виндовой панели задач. Для переключения всёравно почти все используют ALT + TAB (ну или почти все), а столь массивное количество вкладок (?) в панели задач занимают место, в которое можно запихнуть очень много всего полезного.

*далее начнётся бессмысленое оспаривание. Даже если все знают, что я прав, то всёравно оспорят. Только лишь ради того, что бы оспорить*

[tyomitch]

Шеллхук Оловянникова на vbrussian.com

[Williams]

Шеллхук Оловянникова на vbrussian.com

Как всегда A+

[Alexanbar]

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

uRegMsg = RegisterWindowMessage(ByVal "SHELLHOOK")

Call RegisterShellHook(hwnd, RSH_REGISTER_TASKMAN) 
OldProc = GetWindowLong(hwnd, GWL_WNDPROC)
SetWindowLong hwnd, GWL_WNDPROC, AddressOf WndProc

Public Function WndProc(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
 

If wMsg = uRegMsg Then
   
   Select Case wParam
          Case HSHELL_WINDOWCREATED
              .....
          Case HSHELL_WINDOWDESTROYED
            ......
          Case HSHELL_WINDOWACTIVATED
             
              .....

         
   end select
end if
........


Если не будет использоваться Explorer как shell, необходимо:

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

Dim MM As MINIMIZEDMETRICS, rspi&


MM.cbSize = Len(MM)


rspi& = SystemParametersInfo(SPI_GETMINIMIZEDMETRICS, MM.cbSize, MM, 0&)

If rspi <> 0 Then
    If MM.iArrange <> ARW_HIDE Then
        MM.iArrange = ARW_HIDE
        rspi& = SystemParametersInfo(SPI_SETMINIMIZEDMETRICS, MM.cbSize, MM, 0&)
    End If
End If



Иначе панель задач не будет получать уведомления от окон.

[Williams]

Спасибо всем

[Williams]

Кто-нибудь в курсе о совместимости этого метода с Вистой?

Добавлено::
Проверил, работает. Это есть рульно

[BVBot]

Мы с ANDLL как-то делали альтернативную панель задач... так и не доделали, но основа там реализована Можешь взять кое-какие решения из проекта.