Глобальные хуки

[GSerg]

Библа для установления глобальных хуков, исходник оной на Дельфи и пример юзания на VB. Информирование о глобальных событиях сделано через PostMessage – thread-safely, имхо.

Нельзя ставить два хука одного типа из библиотеки, расположенной по одному и тому же пути. Да она вам и не даст.
Можно переместить библу в другое место (или переименовать) – тогда хуки можно ставить по новой из этого экземпляра библы.
Оч. рекомендуется перед завершением работы приложения делать RemoveHook. Экстремальные пофигисты могут этого не делать...

Немногочисленные комментарии – в коде


Очень хотелось бы узнать, работает ли эта бяка на NT-based. Запостите результат опытов, плз. Сохраните всё сначала... Если работает, статью напишу

[SeRRg]

М-дя. Разошелся ты чего-то, это точно
Результат тестинга: Ошибка приложения:
Инструкция по адресу...обратилась к памяти по адресу... Память не может быть written.
И так всегда, что бы я ни делал...
Win XP.

[Tarik]

Та же ось, та же хрень...

[GSerg]

Уточняю условия эксперимента: экзешник нужно делать, иначе конфликт с хуками самой IDE...

[A.A.Z.]

Сначала:
Ошибка приложения, инструкция по адресу 0x043a38d5, обратилась к памяти по адресу 0x00000000. Память не может быть written.
Затем
MsgBox "Runtime error 216 at 043A38D5", ,"Error"
Затем ошибка VB:
Error 53, 'File not found', выделяет строку "Installhook WM_KEYBOARD, Me.hWnd, WM_LBUTTONUP".
DLL точно там есть. Пробовал кинуть в system32, та же хрень.

Затем (после перезапуска) адрес был другой, но какой - к сожалению, не записал - все повисло.

После перезапуска VB - ошибка, как в первый раз.

Ось та же.
--------------------
Самое интересное, при попытке зарегистрировать ее через regsvr32, появилась те же 2 окна, при этом в конце концов он тоже сказал, что LoadLibrary("GHooks.dll") failed: file not found.

[A.A.Z.]

Да, при попытке открыть GHooks.dpr Delphi намертво повис.

[GSerg]

Библа должна быть просто в каталоге с прогой. Но IDE не увидит её, если проект открыт через меню открытия. А если даблкликом по файлу проекта - то увидит.

В любом случае, всё ясно - не открывается filemapping. Кто в нём сечёт хорошо? Я уже весь msdn перерыл, написано - при дефолтовом дескрипторе безопасности должен открываться всеми процессами. А вот не открывается...

[GSerg]

Да, при попытке открыть GHooks.dpr Delphi намертво повис.

А вот это нонсенс... Ну блокнотом открой

[A.A.Z.]

Даблкликом он был открыт.

[A.A.Z.]

Нафига? Все равно я в нем ни бум-бум!

[GSerg]

Покопался, покопался в описании security system...
Попробуем такой вот вариант.

[GSerg]

(задумчиво) Ну и где же этот вредный, нехороший A.A.Z., который должен всё это тестить на своей XP...

[hCORe]

Сначала:
Инструкция по адресу "0x00d93965" обратилась к памяти по адресу "0x00000000". Память не может быть "written".

"OK" -- завершение приложения
"Отмена" -- отладка приложения
"По фиг" -- продолжение работы приложения
"Суицид" -- повеситься на люстре перед компьютером

Потом:
Run-time error 216 at 00D93965

Далее:
Run-time error '48':
File not found: 'GHooks.dll'

[GSerg]

Секундочку...
Так что, библиотека просто не находится почему-то?
Бред какой-то...

Ладно, давайте так. Вот два экзешника, которые реализуют данный способ создания дескриптора полного доступа. Без библиотек. Запускаем сначала 1, потом 2. Рушиться не должны, проверка результатов вызова каждой функции.

[A.A.Z.]

Вот он я!
Не, не рушатся, пишут все правильно...

[Tarik]

Да, тут всё пашет...

[GSerg]

Ну и какого тогда?...
И там, и там абсолютно одинаковый способ создания дескриптора

[GSerg]

Так... Разберём механизм по порядку...

Загружается главная (и пока единственная) копия библиотеки. При этом создаётся filemapping с полным доступом. Создание проходит успешно, поскольку такого filemapping ещё нет. Потом юзер вызывает installhook. Это вызывает неявное loadlibrary для каждого процесса в системе. Каждая из загруженных копий при старте пытается получить доступ к общей памяти, и у неё это должно получиться, ибо, как мы выяснили, дескриптор полного доступа создаётся правильно.
Потом юзер вызывает removehook. Каждая из копий библиотеки перестаёт получать сообщения о нажатиях. Прога на VB завершается. Происходит выгрузка главной копии библы с предварительным отсоединением её от общей памяти. Но все остальные копии библы продолжают оставаться загруженными, выгрузить их нельзя (msdn), поэтому общая память с данным конкретным именем остаётся существовать в системе.
Когда же юзер снова запускает прогу, та получает доступ к общей памяти только на чтение, потому что память уже создана, и библиотека делает вывод, что она не главная копия... Хм...
Естественный вывод – давать полный доступ всем копиям. Всё равно запись производится только при установке хука, а это делает только юзер и только из главной копии...

У кого-то здесь есть подпись – чтобы понять свои ошибки, их нужно написать. Оч. мудрый чел. У меня же каждая копия библы пишет в общую память указатели на свои локальные функции, в результате там оказываются указатели на последний экземпляр библы... Да.....

Ещё апдейт...

[SeRRg]

Твои консольные приложения идут ОК, а новая версия с правкой -
глючит точно так же.

[GSerg]

Тогда я не знаю ничего.
Механизм создания описателя правильный. Сама библа прекрасно работает на 98. А больше в ней ничего и нет.

[SeRRg]

Не спорю. У меня в 98 тоже все пашет. А в ХР - нет.