Отключение пункта меню

Vadim M

Можно ли( и как) в VBА отлючить в окне Internet Explorer пункт меню File->Close?Как найти нужное окно, я знаю. Как в нем найти меню?Я пробовал использовать GetMenu API. Она возвращает дескриптор, но GetItemsCount возвращает 0.Спасибо.
2 ответа

Vadim M

И второй вопрос - как отключить Close в меню, появляющемся при нажатии правой кнопки.


Vadim M

Вот это ответ на второй вопрос:
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Const MF_BYPOSITION = &H400&
Const MF_REMOVE = &H1000&
Private Sub Form_Load()
 Dim hSysMenu As Long, nCnt As Long
 ' Get handle IE system menu
 ' (Restore, Maximize, Move, close etc.)
 hSysMenu = GetSystemMenu(hwnd_IE, False)

 If hSysMenu Then
 ' Get System menu's menu count
 nCnt = GetMenuItemCount(hSysMenu)
 If nCnt Then
 ' Menu count is based on 0 (0, 1, 2, 3...)
 RemoveMenu hSysMenu, nCnt - <b>1</b>, MF_BYPOSITION Or MF_REMOVE
 RemoveMenu hSysMenu, nCnt - <b>2</b>, MF_BYPOSITION Or MF_REMOVE ' Remove the seperator
 DrawMenuBar Me.hwnd
 ' Force caption bar's refresh. Disabling X button
 Me.Caption = "Try to close me!"
 End If
 End If
End Sub
А по первому сам не знаю.GetMenu на самом деле возвращает какую-то хню, а не хандлер, если ищется хендлер не своего приложения, а чужого, я попробовал.А кстати, для Мозиллы и Екселя ничего вообще возвращает, вернее возвращает 0, т.е. не отрабатывает.