| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

fag2000@ok.ru ©   (2002-03-04 17:00:00) 

Проблема в с ледующем почему-то когда окно главной формы становится неактивным оно перестает воспринимать мои сообщения. Если его снова активировать то все впорядке. Сообщения посылаются из глобального 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;

---

Юрий Зотов   (2002-03-04 21:14:00) [1]

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

---

Sasha9   (2002-03-04 19:26:00) [2]

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

---

Наверх