Да, я в курсе, извиняюсь, из-за сильных лагов (на форуме?) долго не мог отписаться.
------------ Дoбавленo в 19.20:
Это один из самых геморройных API ввода, что доводилось использовать. Ладно бы административные какие функции, но мышку с клавиатурой без бубна не опросить... И что-то я сомневаюсь, что режимы совместимости и отключение расширенных служб ввода для устаревших приложений тут помогут.

1nd1g0, Это должно работать на x64.
------------ Дoбавленo в 21.51:
Осторожно! 2.5 мб

Ivann, и оно работает одноформенное приложение на 12.8 мб, там внутри целая 64-хбитная ОС, походу))

1nd1g0, Так у тебя сработало или нет?
------------ Дoбавленo в 09.23:
У меня нормально отработало

Ivann, Да, при компиляции в 64-хбитный исполнимый файл работает замечательно, разрядность приложения и структуры совпали, поля разбираются и выдаются нормально. Как минимум - KEYBOARD.

Это хорошо. Ждем новый пакет Dilma'ы Lazarus. Юнит использовал без изменений.

Ну, пока мы его ждём, придётся попробовать пользоваться тем, что есть. То есть определять тип системы и подстраиваться под искажённую структуру на WOW64. [offtop]И надо бы постучать МелкоМягкой корпорации по голове в багрепортную чуток. А то хорошо устроились слишком, проблеме не менее 2-х лет, хотя не удивлюсь, если более 5 - начиная с Висты 64. Будь это повышение привилегий какое-нибудь, сразу бы забегали)[/offtop]

Добавил в пример отображение средней кнопки мыши. Rinput распаковать и кинуть в папку delphi/code/.

Я просто через старый форум аттачил - видно там нельзя ничего прикрепить. Обновил ссылку выше.
------------ Дoбавленo в 00.38:
Не могу только понять как колесо мыши определять, вроде в модуле оно есть, но как вывести не пойму.

Aziz, возникает ошибка:

Опс..)) Я думал вы все уже скачали модуль из предыдущих постов. Прикрепил выше.
------------ Дoбавленo в 01.04:
Событие от колеса вроде понял как отлавливать, выводится с нижней правой точки число 4132. Но оно не зависит от того в какую сторону крутится колесико. Так что отлов направления - вот нерешеный вопрос. Может Ivan просветит, или кто-то из "зубров". Для полного глобального контроля над мышью не хватает только колеса.

Ex_, RInput.pas кинь в ElementsDelphicode

[flood]Aziz, Tad, спасибо. Схема полезная. Как-то не подумал: ночью неважно соображаю [/flood]

Вот, включив выключенный моск и поковыряв тут:

http://msdn.microsoft.com/en-us/library/windows/desktop/ms645578(v=vs.85).aspx



удалось добраться до колеса.
------------ Дoбавленo в 02.52:
Немного поправил схему..
------------ Дoбавленo в 22.59:
Правда, этот пример, если передать фокус любому другому приложению - перестает отлавливать клавиатуру. Благодаря окну-поплавку это стало заметно. Только мышь, похоже отлавливается глобально. Как можно создать суперглобальный хук на клавиатуру? И еще чтоб антивирь не паниковал? Последнее шутка. Нам такое не нужно..
------------ Дoбавленo в 23.13:
Вот, этот хук на клавиатуру работает действительно глобально. Схема вроде Ivann'a, взятая отсюда же. Работает без модуля Rinput. Использовать исключительно в мирных целях, иначе карма догонит.))