Помогите с правильным написанием и обработкой хуков

[Pantalone]

Ребят, киньте ссылку на сабж пожалуйста. При хуках у меня иногда ни с того ни с сего прога валится когда запущена из под IDE, в скомпилированном виде это не очень часто бывает, но это потому что большинство времени в IDE сижу.
Прога валится причем когда вообще ее никто не трогает, просто вот она была и бац - захрустел винт, запахал доктор ватсон и привет.

[tyomitch]

Под "хуками", надо полагать, понимается сабклассинг?
В топике в кирпичах, где сабклассер GSerg-а, я свалил ссылки на разные материалы по этому поводу.

[Pantalone]

А в чем великий смысл этого сабклассера в кирпичах? Я пока не очень в теме, просто кратко поясните, он меньше ошибок вызывает или что?

[Viper]

Смысл сабклассера в том что он есть, и есть он рабочий.
Ошибок вызывает меньше по сравнению с чем?

[shady]

А в чем великий смысл этого сабклассера в кирпичах? Я пока не очень в теме, просто кратко поясните, он меньше ошибок вызывает или что?

его просто нужно скачать и посмотреть

[Pantalone]

Что-то не пойму как его пристроить.
Пытаюсь вставить код в функцию Callback, что в ISubclass, так до нее вообще действие не доходит. Оно туда вообще должно приходить?

[tyomitch]

Pantalone, там ведь специально для тебя пример приложен? В него посмотреть не дано?

[Pantalone]

tyomitch
В том примере функция пустая:

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

Public Function Callback(ByVal hWnd As Long, ByRef uMsg As Long, ByRef wParam As Long, ByRef lParam As Long, ByVal PrevProc As Long) As Long
End Function

Сюда что ли писать надо:
ISubclass_Callback?
Зачем тогда пустая Callback объявлена?

[alibek]

Потому что так надо.
Если не понимаешь, как это действует, не надо менять, используй так, как в примере указано.

[Antonariy]

Потому что интерфейс.

[Pantalone]

Ясно, и даже заработало и похоже стабильно.
А тогда такой вопросец, если нужно использовать сабклассинг для нескольких форм как тут поступить?
В каждой форме писать свои
Implements ISubclass
и
ISubclass_Callback
или можно как-то все это хозяйство сделать общим? И разруливать через hwnd форм.

[tyomitch]

Можно сделать общим.

[Pantalone]

А намекнуть хотя бы можно как?
Попробую в свой класс все запихнуть.

[tyomitch]

Намёк: у AddSubclassHook есть параметр MessageProcessor.

[Pantalone]

Хотел всю обработку в один MessageProcessor поместить, который в классе описан. Ан нет, встает проблема определения от какого именно окна сообщение поступило. Можно пройтись кейсами по Form1.hwnd и тд, но если форма не открыта то будет ошибка.
On Error Resume Next использовать не хорошо, что посоветуете?
Или лучше не делать обработку сообщений от нескольких окон в одном обработчике?

[alibek]

Добавляй сабклассируемые окна в коллекцию, где Item=Form, а Key=CStr(Form.hWnd).
Но лучше не смешивай.

[tyomitch]

alibek-а не смущает, что это даёт всем формам бессмертие?

[alibek]

Хм... А почему?
При снятии хука, естественно, элемент из коллекции удаляется.

[Pantalone]

Запихнул все в один класс, и для каждой формы вызываю отдельный экземпляр. Удобно! Жду первого краша.