Перехват нажатий клавиш клавиатуры

[Dj_SheLL]

Здравствуйте,уважаемые!
Начал недавно изучать хук клавы и мыши.Решил сделать простое отслеживание нажатие клавиш.Т.е. вы нажимаете любую клавишу клавы,а прога ведёт счёт нажатий.Сделал всё "по науке" через dll,но проблема вот в чём,програ отслеживает не только нажатие,но и отпускание,а оно мне не нужно.
Вот сама dll-ка:

library key;
uses
  wintypes,
  winprocs,
  messages;

const
keyevent = wm_user + 1;

var
hookhandle: hhook;

function keyhook(code: integer; wparam: word; lparam: longint): longint;
var
wnd: hwnd;
begin
if code >= 0 then begin
wnd := findwindow('tkeyform', nil);
sendmessage(wnd, keyevent, wparam, lparam);
result := 0;
end else
result:=callnexthookex(hookhandle, code, wparam, lparam);
end;

procedure setkeyhook;
begin
hookhandle:=setwindowshookex(wh_keyboard, @keyhook, hinstance, 0);
end;

procedure delkeyhook;
begin
if hookhandle <> 0 then
unhookwindowshookex(hookhandle);
end;

exports
setkeyhook index 1,
keyhook index 2,
delkeyhook index 3;

begin
end.

Ещё в private процедура,в которой собственно я веду счёт нажатиям.

procedure WM_NextMsg(var msg: tmessage); message keyevent;

Подскажите пожалуйста в чём может быть проблема и куда "копать".
И проблема ещё в ворде-при нажатии+отжатии считается по 5 раз того и того

[veniside]

> в чём может быть проблема

в том, что игнорируются wparam и lparam

> и куда "копать".

в мсдн. Там написано, как отличить нажатие от отжатия.

[Ship_1]

Продолжу тему...
Странная штука. Нашёл dll перехватчика. Всё, вроде, что мне надо, работает.
Но при этом происходит странная штука: после запуска программы с перехватчиком блокируется многократное нажатие (например, если удерживать "=", то оно один раз наберётся и всё, а не начнёт строчить "================="
И ещё что-то происходит с альт-табом. На семёрке, например, не пропадает "окно" выбора программ из запущенных пока по программе не щёлкнешь мышкой.
Причём при закрытии программы это не проходит...
В чём может быть причина?

library SendKey;

uses
  SysUtils,
  Classes,
  Windows,
  Messages;

const

  {пользовательские сообщения}
  wm_MyKeyDown = wm_User + 133;

  {handle для ловушки}

var

  SaveExitProc: Pointer;
  HookHandle: hHook;// = 0;
  H: HWND;

  {собственно ловушка}

function Key_Hook(Code: integer; wParam: word;
  lParam: Longint): Longint; stdcall; export;
begin

  {если Code>=0, то ловушка может обработать событие}
  if (Code >= 0) and (lParam and $40000000 = 0) then
  begin
    {ищем окно по имени класса и по заголовку
    (Caption формы управляющей программы должен быть равен 'XXX' !!!!)}
    H := FindWindow('TForm1', 'Form1');

    {это те клавиши?}
     SendMessage(H, wm_MyKeyDown, wParam, 0);
    {если 0, то система должна дальше обработать это событие}
    {если 1 - нет}
    Result := 0;
  end

  else if Code < 0 {если Code<0, то нужно вызвать следующую ловушку} then
    Result := CallNextHookEx(HookHandle, Code, wParam, lParam);
end;

{при выгрузке DLL надо снять ловушку}

procedure LocalExitProc; far;
begin

  if HookHandle <> 0 then
  begin
    UnhookWindowsHookEx(HookHandle);
    ExitProc := SaveExitProc;
  end;
end;

exports Key_Hook;

{инициализация DLL при загрузке ее в память}
begin
  {устанавливаем ловушку}

  HookHandle := SetWindowsHookEx(wh_Keyboard, @Key_Hook, hInstance, 0);
  if HookHandle = 0 then
    MessageBox(0, 'Unable to set hook!', 'Error', mb_Ok)
  else
  begin
    SaveExitProc := ExitProc;
    ExitProc := @LocalExitProc;
  end;
end.

[Stilet]

Во-первых ты не всегда возвращаешь нажатие дальше по цепочке, отсюда и могут быть глюки. Имею ввиду Result := 0;
Во-вторых, вообще не пойму зачем тебе перехват, чтоб послать его сообщением в твою же форму...

[Ship_1]

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

[Stilet]

Ранновато тебе перехваты писать... Лучше бы теорию подтянул по хукам.
Я лично рекомендую использовать хук WH_JOURNALPLAYBACK

[Ship_1]

Что ж мне теперь оставлять программку с глюком?... Пока я подтяну теорию - много времени пройдёт, у меня сейчас сильная загрузка по работе, а программка почти готовая, только с небольшим глюком... Или его сложно так просто исправить?
Для подтягивания это пойдёт?

[Stilet]

Пойми. Хуки разрабатывались не для их применения в боевых условиях.
Я не знаю накой тебе такой изврат как хуки нужен, поэтому скалю зубы в сторону "прогу фтопку". Лично я бы так и сделал. Уверен что есть другие более надежные и правильные пути решить твою задачу.
Других советов не будет. По крайней мере от меня.