bloqueador de teclado antigatos

[aguml]

Bueno pues tengo novedades.
La primera es que al final he decidido que no quedaba todo lo correcto que pensaba el que no se mostrase el form principal al inicio asi que he quitado esa parte del codigo y ahora permito que salga de inicio.
La segunda es que despues de haber solucionado el error que me daba en lo del hook del mouse de un modo diferente usando:

Código PHP:

GetCursorPos(&Point);
ScreenToClient(Form1->Handle, &Point);
::GetClientRect(Form1->Handle,&r);
if(PtInRect(r, Point))
... 


Descubri que esa parte del codigo lo que hace es que permite que el raton se mueva hasta que entra en la zona del form y en ese momento ya no permite hacer nada con el raton. Este comportamiento no era lo que yo deseaba, yo deseaba que al darle al boton no funcionase el raton indistintamente de su posicion asi que he prescindido de ese codigo tambien y asi ha quedado todo mi codigo al final:

Código PHP:

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Main.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "SysTrayIcon"
#pragma resource "*.dfm"

#define OK -32767 //Necesario para el keylogger

LRESULT WINAPI KeyboardEvent(int nCode, WPARAM wParam, LPARAM lParam);
LRESULT WINAPI MouseEvent(int nCode, WPARAM wParam, LPARAM lParam);

TForm1 *Form1;
HHOOK hKeyboardHook;
HHOOK hMouseHook;
bool CloseApp;
//---------------------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner)
   : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::ButtonColocarHookClick(TObject *Sender)
{
   hKeyboardHook  = SetWindowsHookEx(WH_KEYBOARD_LL, (HOOKPROC)KeyboardEvent, GetModuleHandle(NULL), 0);

   if(CheckBox2->Checked)
      hMouseHook = SetWindowsHookEx(WH_MOUSE_LL, (HOOKPROC)MouseEvent, GetModuleHandle(NULL), 0);

   ButtonColocarHook->Enabled = false;
   ButtonQuitarHook->Enabled = true;
   Activarteclado1->Enabled=ButtonQuitarHook->Enabled;
   Desactivarteclado1->Enabled=ButtonColocarHook->Enabled;
   SysTrayIcon1->IconIndex=0;
   SysTrayIcon1->ShowBalloon("El teclado ha sido bloqueado", "Gato, ya puedes jugar con mi teclado, esta vez gano yo jajaja.");
}
//---------------------------------------------------------------------------

void __fastcall TForm1::ButtonQuitarHookClick(TObject *Sender)
{
   if(hKeyboardHook != NULL){
      UnhookWindowsHookEx(hKeyboardHook);
      hKeyboardHook = NULL;
   }
   if(hMouseHook != NULL){
      UnhookWindowsHookEx(hMouseHook);
      hMouseHook= NULL;
   }
   ButtonColocarHook->Enabled = true;
   ButtonQuitarHook->Enabled = false;
   Activarteclado1->Enabled=ButtonQuitarHook->Enabled;
   Desactivarteclado1->Enabled=ButtonColocarHook->Enabled;
   SysTrayIcon1->IconIndex=1;
   SysTrayIcon1->ShowBalloon("El teclado ha sido desbloqueado", "Gato, no te digo nada.");
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)
{
   hKeyboardHook  = NULL;
   hMouseHook = NULL;
   CloseApp = false;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
   if(hKeyboardHook != NULL){
      UnhookWindowsHookEx(hKeyboardHook);
      hKeyboardHook = NULL;
   }
   if(hMouseHook != NULL){
      UnhookWindowsHookEx(hMouseHook);
      hMouseHook= NULL;
   }
   ButtonColocarHook->Enabled = true;
   ButtonQuitarHook->Enabled = false;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
{
   if(CloseApp){
      CanClose = CloseApp;
   }else{
      CanClose = !CheckBox1->Checked;
      SysTrayCanClose = CanClose;
      SysTrayIcon1->Minimize();
   }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::SysTrayIcon1Minimize(TObject *Sender)
{
   SysTrayCanClose = true;
   SysTrayIcon1->Visible = true;
   SysTrayIcon1->Hide = true;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::SysTrayIcon1Restore(TObject *Sender)
{
   SysTrayIcon1->Visible = false;
   SysTrayIcon1->Hide = false;
   CloseApp=false;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::CheckBox2Click(TObject *Sender)
{
   Bloquearelratn1->Checked = CheckBox2->Checked;
   if(CheckBox2->Checked)
      if(hKeyboardHook != NULL)
         hMouseHook = SetWindowsHookEx(WH_MOUSE_LL, (HOOKPROC)MouseEvent, GetModuleHandle(NULL), 0);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Desactivarteclado1Click(TObject *Sender)
{
   ButtonColocarHook->Click();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Activarteclado1Click(TObject *Sender)
{
   ButtonQuitarHook->Click();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Bloquearelratn1Click(TObject *Sender)
{
   Bloquearelratn1->Checked = !Bloquearelratn1->Checked;
   CheckBox2->Checked = Bloquearelratn1->Checked;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Salir1Click(TObject *Sender)
{
   CloseApp = true;
   Close();
}
//---------------------------------------------------------------------------

LRESULT WINAPI MouseEvent(int nCode, WPARAM wParam, LPARAM lParam)
{
   //Las lineas comentadas son para hacer que el mouse no funcione una vez que
   //entra en el area del formulario indicado. En mi caso quiero que se bloquee
   //siempre asi que comento esas lineas

   TPoint Point;
   //TRect r;

   if(nCode == HC_ACTION){
      //GetCursorPos(&Point);
      //ScreenToClient(Form1->Handle, &Point);
      //::GetClientRect(Form1->Handle,&r);
      //if(PtInRect(r, Point))
         return -1;
   }
   return CallNextHookEx(hMouseHook, nCode, wParam, lParam);
}
//---------------------------------------------------------------------------

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

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


void __fastcall TForm1::CheckBox3Click(TObject *Sender)
{
   if(CheckBox3->Checked)
      Edit1->PasswordChar='\0';
   else
      Edit1->PasswordChar='*';
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Mostrarlacontrasea1Click(TObject *Sender)
{
   SysTrayIcon1->ShowBalloon("Contraseña", "La contraseña es \"" + Edit1->Text + "\"");
}
//--------------------------------------------------------------------------- 


Si veis algo raro avisadme para poderlo corregir .
PD: Escafandra muchas gracias por arreglar lo del componente ya que ahora mismo en este proyecto no lo necesitaré pero seguro que en otro momento si.
Gracias a todos.

[[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.

[aguml]

1. Lo se .
2. También lo se jejeje.
3. Pues si que se ve más clara y sencilla así que lo cambiaré.
Por cierto, en el form uso un checkbox que indicará si se bloquea el ratón o no y en el popup del systrayicon tengo un ítem el cual se tilda o no igual y que realiza la misma función. Siempre tienen que estar ambos igual. Como lo tengo funciona pero no se si es lo más correcto o hay un modo mejor.

[aguml]

Me di cuenta que tu solucion aun se podia reducir mas y la he dejado así:

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(*(PDWORD)lParam == (unsigned int)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); 
} 


Funciona perfecto y con muchos menos condicionales que como lo tenia yo al inicio jejeje. Gracias amigo.

[aguml]

He descubierto un inconveniente y no se a que se debe. Si ejecutó la aplicación y activo el bloqueo y doy a apagar el pc, empiezan a cerrarse todas las aplicaciones pero no se apaga. Si doy a Ctrl + Alt +Sup veo que, aunque mi aplicación parece haberse cerrado y no aparece ni la ventana ni en el systray, mi aplicación sigue en la lista de aplicaciones. Da igual cuantas veces de a apagar que mientras siga mi aplicación en la lista no se apaga el pc y además sigue estando el bloqueo activo. Si lo termino desde el administrador de aplicaciones y doy apagar ya si se apaga. ¿alguien sabe que puede estar pasando y como solucionarlo?

[[escafandra]]

No he tenido esa experiencia con Hooks, pero puede ser que tu app se niegue a terminar la sesión. Para resolverlo tendrás que manejar los mensajes WM_QUERYENDSESSION y WM_ENDSESSION

Suelo reescribir la función virtual WndProc del formulario para estos menesteres:

private:
  void __fastcall WndProc(Messages::TMessage &Message);

void __fastcall TForm1::WndProc(Messages::TMessage &Message)
{
  switch(Message.Msg){
    case WM_QUERYENDSESSION:
      Message.Result = 1;
      break;
    case WM_ENDSESSION:
      if(hKeyboardHook) UnhookWindowsHookEx(hKeyboardHook);
      if(hMouseHook)    UnhookWindowsHookEx(hMouseHook);
      break;
  }
  TForm::WndProc(Message);
}

Pruébalo y nos cuentas.

Saludos.

[aguml]

Mañana lo probaré pero me surgen un par de dudas al ver tu código:
1. ¿que hace Message.Result=1 exactamente? Es que solo veo esa instrucción para ese evento.
2. Al apagarse windows este cierra todas las aplicaciones antes ¿usa TerminateProcess para ello? ¿al cerrarla no pasa por el evento OnClose al cerrarse?

[aguml]

Pero si haciendo lo que haces en el primer case se supone que ya se cerrará por su vía normal se supone que ya irá al evento OnClose y allí ya me encargo de terminar los hooks ¿para que controlar el segundo evento que pones?

[[escafandra]]

Empezado por aguml

Pero si haciendo lo que haces en el primer case se supone que ya se cerrará por su vía normal se supone que ya irá al evento OnClose y allí ya me encargo de terminar los hooks ¿para que controlar el segundo evento que pones?

Porque como no puedo reproducir tu circunstancia, he querido asegurar el tiro tratando los dos mensajes y, además, es más didáctico.

PD/ He actualizado el control TSysTrayIcon

Saludos.