Перехват и повторное нажатие клавиши

//—————————
#include <vcl.h>
#include <winuser.h>
#include <stdio.h>
#pragma hdrstop
 
#define UP 1           //состояния клавиш
#define DOWN 2
#define RESET 3
 
 
int iLeft;                  // хранятся состояния клавиш
bool oldLeft;
bool bRet;
bool bNewLeft=true;
bool bNewLeft2;
//—————————
 
extern "C" __declspec(dllexport) LRESULT CALLBACK
KeyboardProc(int code, WPARAM wParam, LPARAM lParam);
//—————————
// "Шпионская" функция
//—————————
 
LRESULT CALLBACK KeyboardProc(int code, WPARAM wParam, LPARAM lParam)
{
iLeft=RESET;
 
// Открываем файл с логом на добавление, если его нет — создаём
 
if((lParam>>31)&1)  //если нажата
 {
   switch(wParam)
    {// какая
      case 188: {iLeft=UP; break;};
    }
 }
else
 {
   switch(wParam)
    {// если отпущена
      case 188:
       {iLeft=DOWN;
      if((lParam>>30)&1)
       oldLeft=true;
       else
       oldLeft=false;
        break;};
 }
 
 
 
   if (iLeft==UP)
    {
      if (bNewLeft==false)
       {
         if(!oldLeft)
           keybd_event(188, 0x45, KEYEVENTF_EXTENDEDKEY | 0, 0);
         if (bNewLeft2)
          {
            keybd_event(188, 0x45 ,KEYEVENTF_EXTENDEDKEY |KEYEVENTF_KEYUP,0);
            bNewLeft2=false;
            bNewLeft=false;
          }
       }
    }
   if (iLeft==DOWN)
    {
      if(!oldLeft)
      if (bNewLeft)
       {
        bNewLeft2=true;
        bNewLeft=false;
       }
      else
         bNewLeft=true;
    }
 
 
 
return CallNextHookEx(NULL, code, wParam, lParam);
 
}
 
//#pragma argsused
int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void* lpReserved)
{
   return 1;
}
//---------------------------------------------------------------------------

HHOOK hook;
 
LRESULT CALLBACK LLKeyProc(int nCode, WPARAM wParam, LPARAM lParam)
{
    if(nCode == HC_ACTION)
    {
        DWORD vk = ((LPKBDLLHOOKSTRUCT)lParam)->vkCode;
        if(wParam == WM_KEYUP) // кнопка отпущена?
        {
            Form1->Memo1->Lines->Add(IntToStr((int)vk)); // для проверки
            keybd_event(188, 0x45, KEYEVENTF_EXTENDEDKEY | 0, 0); // нажимаем нужную кнопку еще раз
        }
    }
    return CallNextHookEx(NULL, nCode, wParam, lParam);
}
 
// установка хука
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    hook = SetWindowsHookEx(WH_KEYBOARD_LL, LLKeyProc, GetModuleHandle(NULL), 0);
}
//---------------------------------------------------------------------------
 
// снятие хука
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
    UnhookWindowsHookEx(hook);
}