|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
22.05.2008, 13:12 | #1 |
Подтвердите свой е-майл
Регистрация: 16.05.2008
Сообщений: 54
|
Перестаёт работать Hook
Проблема такая запускаю Hook
Код:
НО после нажатия Alt-Ctrl-Del обращение к @HookProc уже не происходит при повторном Код:
как отследить что Hook умер и его надо перезапустить? |
22.05.2008, 13:23 | #2 | |
Новичок
Джуниор
Регистрация: 18.01.2008
Сообщений: 1,720
|
Почему Вы не хотите читать документацию?....
http://msdn.microsoft.com/en-us/libr...83(VS.85).aspx Цитата:
|
|
26.05.2008, 15:58 | #3 |
Подтвердите свой е-майл
Регистрация: 16.05.2008
Сообщений: 54
|
Function TMain.HookProc(Code: Integer; WParam: Word; LParam: Longint): Longint; stdcall;
Var Msg:PEVENTMSG; Begin if Code <0 Then Result := CallNextHookEx(FHookHandle, Code, WParam, LParam) Else Begin Result:=0; Msg :=Pointer(LParam); If (msg.message=WM_CANCELJOURNAL) then main.Caption:='OP'; //:=SetWindowsHookEx(WH_JOURNALRECORD , @FThunk, HInstance, 0); If (Msg.Message = WM_LBUTTONDOWN) then //And HookEnable Then Begin main.caption:=Inttostr(random(100)) ; End; End; End; |
26.05.2008, 15:58 | #4 |
Подтвердите свой е-майл
Регистрация: 16.05.2008
Сообщений: 54
|
ой не то щаз исправлю
|
26.05.2008, 16:02 | #5 |
Подтвердите свой е-майл
Регистрация: 16.05.2008
Сообщений: 54
|
Код:
кто смог победить? |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
hook в dll? | Altera | Win Api | 3 | 09.03.2008 09:54 |
DirectX 8.1 hook | delphi_beginner | Gamedev - cоздание игр: Unity, OpenGL, DirectX | 0 | 15.11.2007 21:03 |
Hook... | Roof | Общие вопросы Delphi | 5 | 06.11.2007 16:25 |
Hook off? | Сильванович Михаил | Win Api | 1 | 03.04.2007 16:25 |