Меню, иконка из приложения

[Sirik]

есть запущеные программы (в Панели задач).
как получить меню приложения (клик на пиктограмме) ?

как получить иконку (большую и маленькую, особенно последнее) приложения зная его путь?

[Серый]

2
как вытащить иконку я знаю, вот только беда, получается вытащить только большую иконку, а мне надо маленькую

[tyomitch]

есть запущеные программы (в Панели задач).
как получить меню приложения (клик на пиктограмме) ?

GetSystemMenu

[Sirik]

Ок, для получения меню я использую сл. код:

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

Const MF_CHECKED = &H8&
Const MF_APPEND = &H100&
Const TPM_LEFTALIGN = &H0&
Const MF_DISABLED = &H2&
Const MF_GRAYED = &H1&
Const MF_SEPARATOR = &H800&
Const MF_STRING = &H0&

Const TPM_LEFTBUTTON = &H0&
Const TPM_RIGHTBUTTON = &H2&

Private Type POINTAPI
    x As Long
    y As Long
End Type

Private Declare Function TrackPopupMenu Lib "user32" _
            (ByVal hMenu As Long, _
            ByVal wFlags As Long, _
            ByVal x As Long, _
            ByVal y As Long, _
            ByVal nReserved As Long, _
            ByVal hwnd As Long, _
            ByVal lprc As Any) As Long

Private Declare Function GetSystemMenu Lib "user32" _
            (ByVal hwnd As Long, _
            ByVal bRevert As Long) As Long

Private Declare Function GetCursorPos Lib "user32" _
            (lpPoint As POINTAPI) As Long


Private Sub Form_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
    Dim Pt As POINTAPI
    GetCursorPos Pt
    If Button = 2 Then
        TrackPopupMenu GetSystemMenu(459554, False), TPM_LEFTALIGN + TPM_LEFTBUTTON, Pt.x, Pt.y, 0, Me.hwnd, ByVal 0&
    End If
End Sub

где, 459554- hwnd какого-то окна.

как теперь, после выбора пункта меню, передать значение выбранного пункта?
думаю что копать надо в сторону PostMessage но что именно ???

[tyomitch]

шли WM_SYSCOMMAND