[Ama]

Доброе время суток всем!!!! Создал хук клавы....все работает, решил приспособить его в комбинации клавиш....вот проца обработки нажатия кнопки клавиатуры из DLL:

Код:

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

function KeyMsgProc(Code: integer; wParam: word;                      lParam: LongInt): LongInt; stdcall;    var kn: array[0..50] of Char;   begin    GetKeyNameText(lParam, kn, SizeOf(kn));    CurrKey:= StrPas(kn);      if (Code = HC_ACTION) and (((lParam shr 16) and KF_UP) = 0) and       (Pos(CurrKey, ShortC) = 0) then     begin      ShortC:= ShortC + CurrKey + '+';      KeyUpped:= false; //     MessageBox(0, PChar('---' + ShortC + '---'), PChar(''), MB_OK);     end    else     if (Code = HC_ACTION) and (((lParam shr 16) and KF_UP) = KF_UP) and         not KeyUpped then      begin       if ShortC[Length(ShortC)] = '+' then Delete(ShortC, Length(ShortC), 1);       MessageBox(0, PChar('---' + ShortC + '---'), PChar(''), MB_OK);       KeyUpped:= true;         CurrKey:= '';       ShortC:= '';      end;    Result:= CallNextHookEx(KHook, Code, wParam, lParam);   end;

Так вот проблема в том что при нажатии, к примеру, "Alt + 0" он почему-то 2 раза выводит сообщение "---Alt + 0---", хотя по идее должна 1 раз выводить........почему тада 2 раза?

[v1s2222]

1 раз приходит сообщение об нажатии клавиш, 2 раз - об "отпускании"...

[Ama]

Код:

1 2	if (Code = HC_ACTION) and (((lParam shr 16) and KF_UP) = 0) and       (Pos(CurrKey, ShortC) = 0) then

Вот это условие перехватывает именно нажатую кнопку.....и там показа сообщения нет!!!! Тем более я заметил что если нажать комбинацию из n-кнопок, то при нажатии сообщения не появляются, но при отпускании сообщение появляется n раз, т.е. при каждом отпускании кнопки, а должно вроде тока один раз.