Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.03.18;
Скачать: CL | DM;

Вниз

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

 
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"ке


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

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



Страницы: 1 вся ветка

Текущий архив: 2002.03.18;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.01 c
4-57559
Maxman
2002-01-04 07:16
2002.03.18
Запуск приложений


1-57361
Rash
2002-03-03 23:25
2002.03.18
Округление переменной до 2 цифр


6-57476
Egor111
2002-01-03 21:29
2002.03.18
Socket


7-57525
mitya_m
2001-12-13 16:36
2002.03.18
Как проверить на NT/2K, что имя и пароль пользователя правильные


1-57374
Vvedensk
2002-03-04 05:46
2002.03.18
Как вставить в edit каких-то 3 переменных ....