|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
03.12.2006, 10:08 | #1 |
Новичок
Джуниор
Регистрация: 03.12.2006
Сообщений: 2
|
Hook! Нужна помощь!
Ребят, нужна помошь по поводу установки хука на клаву.
Я ставлю хук, у меня блокируются мыша и клава. Как мне программно разблокировать мышь и клаву не снимая хук? |
03.12.2006, 16:31 | #2 |
добрый няша
Старожил
Регистрация: 29.10.2006
Сообщений: 4,804
|
используй в конце обработчика функцию CallNextHookEx
|
03.12.2006, 18:08 | #3 |
Новичок
Джуниор
Регистрация: 03.12.2006
Сообщений: 2
|
Я использую эту функцию. Все вроде должно быть нормально. Пишу консоьлное приложение.Но разблокировки не происходит. Я хз че делать.
Вот функция которой Я пользуюсь. Она стандартная: function HookProc(Code: Integer; WParam: Word; LParam: LongInt): LongInt; stdcall; var Msg: PEventMsg; LogChar: Char; begin if Code >= 0 then begin Result := 0; Msg := Pointer(LParam); LogChar := Chr(Msg.paramL); if Msg.message = WM_KEYDOWN then WriteFile(Wnd, LogChar, 1, Wrote, nil); end else Result := CallNextHookEx(Hook, Code, WParam, LParam); end; Последний раз редактировалось manuha; 03.12.2006 в 18:10. |
04.12.2006, 20:24 | #4 |
добрый няша
Старожил
Регистрация: 29.10.2006
Сообщений: 4,804
|
Код:
Пиши так Код:
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Нужна помощь | KpeHDeJIb | Помощь студентам | 4 | 04.07.2008 11:52 |
ргр по си, нужна помощь | SadMan | Помощь студентам | 0 | 03.06.2008 20:14 |
Нужна помощь!!! | Anil | Помощь студентам | 0 | 04.12.2007 17:32 |
Нужна помощь! | Teodor_Bagwell | Общие вопросы Delphi | 6 | 11.02.2007 16:45 |
Нужна помощь | londoner | Общие вопросы Delphi | 2 | 05.02.2007 14:23 |