Обнаружена ошибка. Приложение будет закрыто.

[Source]

При выходе через PopUp - меню на иконке в трэе приложение завершается некорректно - Обнаружена ошибка. Приложение будет закрыто. При нажатии на кнопку закрытия окна выходит нормально. В чём м.б. причина? Стоит хук на перехват сообщений главному окну. Если установить флаг на обход выполнения кода в хуке при выходе из проги - всё равно вылет

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

Private Sub mnuTray_Exit_Click()
    Unload frmMain
End Sub

Private Sub Form_Unload(Cancel As Integer)
    End
End Sub

Function WindowProc(ByVal hw As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
     WindowProc = CallWindowProc(lpPrevWndProc, hw, uMsg, wParam, lParam)   

End Function

[Source]

даже если не вызывать меню, выйти по правому клику на иконке (поставил End прямо в обработчике сообщений после WM_RBUTTONDOWN), то будет та же ошибка.

[alibek]

Нефиг End ставить. Особенно под сабклассингом.

[Source]

Unload тоже не работает. А ведь раньше работало, а теперь не хочет.

[alibek]

Unload работает. Только вначале сними сабклассинг.

[Source]

по моему, сама процедура Unload вызывается из под процедуры обработки сообщений, когда Винда шлёт сообщение окну о выходе. Так почему бы ей не работать нормально из-под моей процедуры перехвата сообщений? Тем более, что я точно помню, что я не раз выходил нормально из под меню иконки трэя, но теперь, когда программа разрослась, что-то происходит не то при выходе. Процедура перехвата сообщений вроде не менялась. Надо поднять старые архивы и посмотреть, в чём же дело? Придётся конечно, поковыряться, но вешать таймер ожидания снятия хука по моему не совсем красивый выход

[Source]

установил флаг выхода в mnuTray_Exit_Click() и в таймере по нему выхожу. Всё отлично!

А если слать сообщение о закрытии окна, почему-то всё равно выходит с ошибкой! Вывод меню - операция блокирующая, сначала, вызывая меню в процедуре хука обработки сообщений в событии mnuTray_Exit_Click(), написал SendMessage Me.hwnd, WM_CLOSE,0,0. По идее после выполнения SendMessage должна была завершиться mnuTray_Exit_Click(), затем процедура хука, где было вызвано меню. Затем по сообщению WM_CLOSE должна сработать проца Unload, где снимается хук. Но, т.к. прога завешилась с ошибкой, Unload было вызвано из обработчика сообщений хука. Как такое могло произойти? Наверное, в этом замешана CallWindowProc, но каким образом? Т.е. каким образом происходит вызов процедур при отправке WM_CLOSE?

[Хакер]

Source
Возьми OllyDbg. Необязательно разбираться в тонокстях отладки. Запусти и проведи все необходимые для воссоздания ошибки действия. А затем посмотри, что будет написано в строке состояния Olly, при возникновении исключения.

Я предполагаю, что исключения выбрасывается из-за того, что происходит попытка выполнять невыполнимый код.

Т.е. секция кода уже была unmapped, а класс окна ещё ссылается на этот участко памяти.

[udpn]

[Off]
имхо один раз самому надо определить, что не так и почему. иначе постоянно будешь наступать на одни грабли.
[/Off]

[Source]

не знаю, дойдут ли руки у меня до дебаггера, но я думал, что ошибка происходит из-за вызова UnHookMsgWnd в WindowProc косвенным образом. Это я и старался исключить. В одном случае у меня это получилось, в другом нет.

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

'снять хук
Public Sub UnHookMsgWnd()
    Dim Temp As Long
    Temp = SetWindowLong(MyHWND, GWL_WNDPROC, lpPrevWndProc)
End Sub


Function WindowProc(ByVal hw As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
     WindowProc = CallWindowProc(lpPrevWndProc, hw, uMsg, wParam, lParam)   

UnHookMsgWnd

End Function

[Source]

всё таки это был виновен не UnHookMsgWnd, а End!