Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Низкоуровневое программирование > Win Api
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 30.12.2008, 17:00   #1
Tihon
Пользователь
 
Регистрация: 18.12.2007
Сообщений: 40
По умолчанию Хуки (тестовый пример). В чем моя ошибка?

Разбираюсь с хуками.
Из инета взял пример, подготовил проект для D6 (приаттачено!).

Глобальный клавиатурный хук каждые 20 символов должен сбрасывать строку WinWord в лог-файл.
Пример работает, в смысле, что хук устанавливается.
Но результат совершенно мне непонятен.
Клавиатура при установке хука вообще просто блокируется! Пока хук не снят - только мышь работает...

Помогите, не могу разобраться, в чем фишка
Вложения
Тип файла: rar Hook1.rar (237.6 Кб, 28 просмотров)

Последний раз редактировалось Tihon; 30.12.2008 в 17:21. Причина: уточнение
Tihon вне форума Ответить с цитированием
Старый 31.12.2008, 10:40   #2
rpy3uH
добрый няша
Старожил
 
Аватар для rpy3uH
 
Регистрация: 29.10.2006
Сообщений: 4,804
По умолчанию

в функции GlobalKeyBoardHook
сделай так
result:=callnexthookex(currenthook, code, wparam, lparam);
rpy3uH вне форума Ответить с цитированием
Старый 31.12.2008, 11:59   #3
Tihon
Пользователь
 
Регистрация: 18.12.2007
Сообщений: 40
По умолчанию

Цитата:
Сообщение от rpy3uH Посмотреть сообщение
в функции GlobalKeyBoardHook
сделай так
result:=callnexthookex(currenthook, code, wparam, lparam);
Спасибо, мастер...
Блокировка ликвидирована.

Хочу заметить, что в том варианте проекта, что ты видел, не только эта ошибка, но и еще пяток обнаружился Но про result я бы долго догадывался
А вообще - в недоделанном варианте, если завернуть красиво, - готовая утилитка для блокировки клавы в отсутствие хозяина...
Так что, случай - двигатель прогресса
Tihon вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Скажите, в чем моя ошибка в сортировке, или напишите, как правильно сортировать. язык Паскаль. Devo4ka Паскаль, Turbo Pascal, PascalABC.NET 0 26.11.2008 00:19
Глобальные хуки Zeraim Win Api 2 24.05.2008 16:00
В чем ошибка ? Droid Общие вопросы Delphi 13 03.05.2008 18:17
базовые и производные классы (В чём моя ошибка) umnix Общие вопросы C/C++ 5 01.12.2007 17:26
в чем ошибка? Lonix Общие вопросы Delphi 2 24.03.2007 09:41