Меню "Пуск"

[Kovu]

Ребят не подскажите как сделать так , чтобы окошко, которое вылазит по кнопке ПУСК, вылазило на моей форме и чтобы его легко можно было изменять. [/i]

[badDRAGON]

[Alexanbar]

Сделать собственное меню на соответствующей форме (скрытое). Далее при нажатии кнопки вызвать меню методом Popupmenu

[GSerg]

И как это поможет в данном вопросе?

[Matew]

Именно это окошко (для каждого компа свое)? Изменения должны вноситься в меню пуск?

[ANDLL]

На форме два таймера tmr1 и tmr2:

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

Option Explicit
Dim hMainMenu As Long
   
Private Sub Form_Load()
    'Только для русской версии Windows
    hMainMenu = FindWindow("DV2ControlHost", "Главное меню")
    If hMainMenu = 0 Then MsgBox "Главное меню не найдено", vbCritical: End
    'Subclass hMainMenu
    tmr1.Enabled = True
    tmr1.Interval = 100
    tmr2.Enabled = False
    tmr2.Interval = 100
End Sub

Private Sub Form_Unload(Cancel As Integer)
    'Unsubclass
End Sub

Private Sub tmr1_Timer()
    If GetWindowLong(hMainMenu, GWL_STYLE) And WS_VISIBLE Then
        tmr1.Enabled = False
        tmr2.Enabled = True
        SetWindowPos hMainMenu, 0, Me.Left / Screen.TwipsPerPixelX, Me.Top / Screen.TwipsPerPixelY, 0, 0, SWP_NOSIZE
    End If
End Sub

Private Sub tmr2_Timer()
    If Not CBool(GetWindowLong(hMainMenu, GWL_STYLE) And WS_VISIBLE) Then
        tmr1.Enabled = True
        tmr2.Enabled = False
    End If
End Sub


Все объявления API беруться из API Text Viever'а

Ну это о том, как его получить и переместить.

[GM]

ANDLL, я тоже на этом попадался. Так как пример будет работать будеть только в ХР с продвинутым Пуском.

[ANDLL]

А в другом windows'е просто другой класс окна... В студии есть такая утилита Spy++.

[GM]

А в другом windows'е просто другой класс окна... В студии есть такая утилита Spy++.

В другом windows'e создается обычное меню, а не окно.

[ANDLL]

А вот это уже хуже...

[Kovu]

Спасибо всем вам! Очень помогло!

[Kovu]

Только вопросик: Почему в ХРе тень остается и не стирается до перезапуска Explorer.exe (При Runе без среды)

[SSecurity]

нуууу.... я тут свою консоль пишу под винду ... добил меня ентот ХР ...

так я обошел тень так:
1. Нашел хендл
2. Присвоил ему прозрачность 0 - (чтобы спрятать)
3. Долбанул по Хенделу - CloseWindow [найденный хендл][/b]

[tyomitch]

3. Долбанул по Хенделу - CloseWindow [найденный хендл]

Ты уверен, что сделал то, что хотел?

The CloseWindow function minimizes (but does not destroy) the specified window.

[SSecurity]

Если бы я хотел бы его уничтожить я бы послал ему сообщение кажись WM_DESTROY.
Этот вариант я пробовал - в продвинутом меню он не убил всего окна меню, а лишь конкретно его сократил:)))))
Посему я рад тому что сделал:) после оного преобразования при нажатие на Виндо-кнопку цвет кнопки пуск слегка меняется, но для меня это не проблема поскольку саму кнопку пуск я прячу вместе со всей панелью задач. (а спрятать кнопку Пуск отдельно и того проще:))

[tyomitch]

Если бы я хотел бы его уничтожить я бы послал ему сообщение кажись WM_DESTROY.

Не угадал - надо вызывать DestroyWindow

[SSecurity]

Во всяком случае я пошел иным путем:)

[Kovu]

Люди я имел ввиду убрать тень пока юзер видит меню пуска
Я его на форму приклеил(круто по типу ), а тень мне просто не нужна.
Мне всё окно чистить не надо