bloqueador de teclado antigatos

[[escafandra]]

Algunas aclaraciones:

1.- SysTrayIcon1->ShowBalloon no mostrará nada si la App no es visible en el SysTray.
2.- Cuidado de no modificar la clave inadvertidamente pues tendrás problemas si bloqueas teclado y ratón.
3.- ¿No te parece más simple esta forma de detectar la clave?

Código PHP:

LRESULT WINAPI KeyboardEvent(int nCode, WPARAM wParam, LPARAM lParam)
{
  static count=0;

  if(nCode == HC_ACTION && (wParam == WM_SYSKEYDOWN) || (wParam == WM_KEYDOWN)){
    if(!GetAsyncKeyState(VK_CONTROL) && !GetAsyncKeyState(VK_SHIFT) && !GetAsyncKeyState(VK_MENU)){
      if(count >= 0 && count < Form1->Edit1->Text.Length()){
        if(*(PDWORD)lParam == toupper(Form1->Edit1->Text[count+1]))
          count++;
        else count = 0;
        if(count == Form1->Edit1->Text.Length()){
          count = 0;
          Form1->ButtonQuitarHook->Click();
        }
      }
    }
    return -1;
  }
  return CallNextHookEx(hKeyboardHook, nCode, wParam, lParam);
} 


Saludos.