Легенда:
 новое сообщение
 закрытая нитка
 новое сообщение
 в закрытой нитке
 старое сообщение
|
- Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
- Новичкам также крайне полезно ознакомиться с данным документом.
| | |
Короче вот Dllка 06.07.04 13:27 Число просмотров: 1368
Автор: Killer{R} <Dmitry> Статус: Elderman
Отредактировано 06.07.04 13:30 Количество правок: 1
|
> Короче вот Dllка
>
> library hook;
>
> uses
> SysUtils,
> Windows,
> Messages;
>
> function GetMsgProc(code: integer; wparam: integer;lparam:
> integer):LRESULT; stdcall
> var pp: ^MSG;
> begin
> pp:=pointer(lparam);
>
> Здесь вобщем в pp.messages приходят все перехваченые
> мессаги и можно поставить
> любой фильтр case_ом или if_ом.
> Ресульт всегда должен быть 0.
> Если коде <0 то в ресульт надо CallNextHookEx
Это почему? Читаем MSDN:
If nCode is less than zero, the hook procedure must return the value returned by CallNextHookEx.
If nCode is greater than or equal to zero, it is highly recommended that you call CallNextHookEx and return the value it returns; otherwise, other applications that have installed WH_GETMESSAGE hooks will not receive hook notifications and may behave incorrectly as a result. If the hook procedure does not call CallNextHookEx, the return value should be zero.
Те CallNextHookEx очень желательно выполнятьвсегда А то если у тебя установлены другие проги работающие с раскладкой (какой нить keyboard ninja) - могут быть такие траблы.
> exports
> GetMsgProc;
>
>
>
> Сама процйедура установки в основной программе
>
> var
> Form1: TForm1;
> h:hhook;
> libhandle:HINST;
> hkprcKeyboard: TFNHookProc;
>
> procedure TForm1.Button1Click(Sender: TObject);
> begin
> libhandle:=LoadLibrary('hook.dll');
> hkprckeyboard:=GetProcAddress(libhandle, 'GetMsgProc');
>
> h:=SetWindowsHookEX(WH_GETMESSAGE,hkprckeyboard,libhandle,0
h надеюсь передается в длл в каждом процессе каким то образом?
|
|
<programming>
|
[Pascal] Ставлю хук, перестает меняться раскладка клавы. 05.07.04 15:20
Автор: jiZo <Александр> Статус: Member
|
|
В дельфе вешаю хук на ловлю сообщений (wh_messages), все ОК, но перестает переключаться раскладка :( Даже если вешаю "пустой" хук, эффект тотже. Может кто подскажет как с этим бороться?
|
|
1- Установлены ли какие нить сторонние проги работающие с... 05.07.04 16:03
Автор: Killer{R} <Dmitry> Статус: Elderman
|
> В дельфе вешаю хук на ловлю сообщений (wh_messages), все
> ОК, но перестает переключаться раскладка :( Даже если вешаю
> "пустой" хук, эффект тотже. Может кто подскажет как с этим
> бороться?
1- Установлены ли какие нить сторонние проги работающие с раскладкой?
2- процедуру хука можно посмотреть? Происходит ли корректный вызов CallNextHookEx причем корректный в том числе с передачей правильного HHOOK hhk - учти что если у тя длл то у каждого процесса свое адресное пространство соотв и HHOOK hhk свой. А как делать shared секции в делфи - хз. Надо кудато сохранять текущий HHOOK hhk куда то (например в реестр) и читать при инициализации дллки с хуками в чужом процессе.
|
| |
Короче вот Dllка
06.07.04 13:04
Автор: jiZo <Александр> Статус: Member
|
Короче вот Dllка
library hook;
uses
SysUtils,
Windows,
Messages;
function GetMsgProc(code: integer; wparam: integer;lparam: integer):LRESULT; stdcall
var pp: ^MSG;
begin
pp:=pointer(lparam);
Здесь вобщем в pp.messages приходят все перехваченые мессаги и можно поставить
любой фильтр case_ом или if_ом.
Ресульт всегда должен быть 0.
Если коде <0 то в ресульт надо CallNextHookEx
Result:=0;
end;
exports
GetMsgProc;
Сама процйедура установки в основной программе
var
Form1: TForm1;
h:hhook;
libhandle:HINST;
hkprcKeyboard: TFNHookProc;
procedure TForm1.Button1Click(Sender: TObject);
begin
libhandle:=LoadLibrary('hook.dll');
hkprckeyboard:=GetProcAddress(libhandle, 'GetMsgProc');
h:=SetWindowsHookEX(WH_GETMESSAGE,hkprckeyboard,libhandle,0);
end;
Если что нить не так и поэтому раскладка ёк, скажите плиз.
|
| | |
Короче вот Dllка 06.07.04 13:27
Автор: Killer{R} <Dmitry> Статус: Elderman
Отредактировано 06.07.04 13:30 Количество правок: 1
|
> Короче вот Dllка
>
> library hook;
>
> uses
> SysUtils,
> Windows,
> Messages;
>
> function GetMsgProc(code: integer; wparam: integer;lparam:
> integer):LRESULT; stdcall
> var pp: ^MSG;
> begin
> pp:=pointer(lparam);
>
> Здесь вобщем в pp.messages приходят все перехваченые
> мессаги и можно поставить
> любой фильтр case_ом или if_ом.
> Ресульт всегда должен быть 0.
> Если коде <0 то в ресульт надо CallNextHookEx
Это почему? Читаем MSDN:
If nCode is less than zero, the hook procedure must return the value returned by CallNextHookEx.
If nCode is greater than or equal to zero, it is highly recommended that you call CallNextHookEx and return the value it returns; otherwise, other applications that have installed WH_GETMESSAGE hooks will not receive hook notifications and may behave incorrectly as a result. If the hook procedure does not call CallNextHookEx, the return value should be zero.
Те CallNextHookEx очень желательно выполнятьвсегда А то если у тебя установлены другие проги работающие с раскладкой (какой нить keyboard ninja) - могут быть такие траблы.
> exports
> GetMsgProc;
>
>
>
> Сама процйедура установки в основной программе
>
> var
> Form1: TForm1;
> h:hhook;
> libhandle:HINST;
> hkprcKeyboard: TFNHookProc;
>
> procedure TForm1.Button1Click(Sender: TObject);
> begin
> libhandle:=LoadLibrary('hook.dll');
> hkprckeyboard:=GetProcAddress(libhandle, 'GetMsgProc');
>
> h:=SetWindowsHookEX(WH_GETMESSAGE,hkprckeyboard,libhandle,0
h надеюсь передается в длл в каждом процессе каким то образом?
|
| | | |
the hook procedure does not call CallNextHookEx, the return... 06.07.04 14:13
Автор: jiZo <Александр> Статус: Member
|
the hook procedure does not call CallNextHookEx, the return value should be zero.
Я прочитал как Return value should be zero и h соответственно не передавал. Попробую так. Спасибо. Сторонних прог работающих с раскладкой нет. Не выйдет, приду опять за советом :)
|
|
|
подробно о проекте
Анализ криптографических сетевых...
