bloqueador de teclado antigatos

[aguml]

Es lo que tu dices y ya lo puse. Con respecto a usar un salvapantallas pues no sirve porque a veces estoy viendo una peli y el gato decide que el teclado es una buena cama jajaja.
Ahora que he puesto esa linea aparece una excepcion al mostrar el menu del systrayicon. El problema es que no hay ningun form activo al ser el unico y estar oculto y el componente hace uso de este codigo:

Código PHP:

void __fastcall TSysTrayIcon::ShowMenu()
{
   if(FPopupMenu == NULL) return;

   TPoint point;
   GetCursorPos((tagPOINT*)&point);

   try
   {
      if (Screen->ActiveForm->Handle != NULL)
         SetForegroundWindow(Screen->ActiveForm->Handle);
   }
   catch (...)
   {
   }

   FPopupMenu->Popup(point.x, point.y);
} 


El caso es que ActiveForm vale NULL y da una excepcion y no la pasa ni con el catch correctamente.
He hecho un chapú para solucionarlo que es hacer en el evento OnCreate del form Form1->Show() y Form1->Hide() y con eso ya hay un form activo y no falla pero durande unas decimas aparece y desaparece el form y no quiero que pase eso.

[[escafandra]]

Empezado por aguml

...Ahora que he puesto esa linea aparece una excepcion al mostrar el menu del systrayicon. El problema es que no hay ningun form activo al ser el unico y estar oculto y el componente hace uso de este codigo:

Código PHP:

void __fastcall TSysTrayIcon::ShowMenu()
{
   if(FPopupMenu == NULL) return;

   TPoint point;
   GetCursorPos((tagPOINT*)&point);

   try
   {
      if (Screen->ActiveForm->Handle != NULL)
         SetForegroundWindow(Screen->ActiveForm->Handle);
   }
   catch (...)
   {
   }

   FPopupMenu->Popup(point.x, point.y);
} 


El caso es que ActiveForm vale NULL y da una excepcion y no la pasa ni con el catch correctamente.
He hecho un chapú para solucionarlo que es hacer en el evento OnCreate del form Form1->Show() y Form1->Hide() y con eso ya hay un form activo y no falla pero durande unas decimas aparece y desaparece el form y no quiero que pase eso.

Efectivamente la función falla cuando Application->ShowMainForm = false porque en ese caso Screen->ActiveForm == NULL
He aprovechado para corregir eso y ampliar esa funcionalidad de forma sencilla.

Código PHP:

// Esto hará que la App arranque escondida, no visible en la barra de tareas y si en el SysTray 
__fastcall TForm1::TForm1(TComponent* Owner)
   : TForm(Owner)
{
   Application->ShowMainForm = false;
   SysTrayIcon1->Hide = true;
   SysTrayIcon1->Visible = true;
} 


El enlace del componente actualizado lo tienes aquí


Saludos

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