Почему нет реакции на сообщение?

← →
fag2000@ok.ru © (2002-03-04 17:00) [0]

Проблема в с ледующем почему-то когда окно главной формы становится неактивным оно перестает воспринимать мои сообщения. Если его снова активировать то все впорядке. Сообщения посылаются из глобального HOOK"а на клаву .

//Код для обработки сообщений
const KeyMessageId=1111;
Type
TMainForm = Class(TForm)
...
Private
Procedure WM_KeyMessage(Var Message: TMessage); Message KeyMessageId;
....
Protected
End;
Procedure TMainForm.WM_KeyMessage(var Message: TMessage);
Begin
Memo1.Lines.Add("Char: "+Chr(Message.wParam));
End;
//код для посылки сообщений из DLL
//ms-код моего сообщения
Function SetKeyboardHook(Wnd: HWND;ms:integer): integer; stdcall;
Begin
If ShareInf<>Nil Then
Begin
MsgId:=ms;
WndHandle:=Wnd;
HookHandle:=SetWindowsHookEx(WH_KEYBOARD, @KeyboardHook, HInstance, 0);
Result:=HookHandle;
End
Else Result:=0;
End;

Function KeyboardHook(Code: Integer; ParamW: WPARAM; ParamL: LPARAM): LRESULT;stdcall;
Begin
SendMessage(WndHandle, MsgId, ParamW, Code);
Result := CallNextHookEx(HookHandle, Code, ParamW, ParamL);
End;

← →
Sasha9 © (2002-03-04 19:26) [1]

хук нужно делать глобальный т.е. Function KeyboardHook(...) писать в DLL"ке

И даже в этом случае будет то же самое. Проблема - в переменных WndHandle, MsgID и HookHandle. Они будут проинициализированы только в одном процессе, а надо во всех.

Почему нет реакции на сообщение? Найти похожие ветки