Hook de teclado con filtro de pulsaciones

[aguml]

Amigo el hook va fantastico, lo he modificado un poquitin y quedó así:

App:

Código PHP:

#include <vcl.h>
#pragma hdrstop

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

typedef void (*LPFuncion)(BOOL,HINSTANCE/*Redefiní la funcion*/);

TForm1 *Form1;
HMODULE Dll;
bool errorFunc=true, errorDll=true;
LPFuncion Funcion=NULL;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
   : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::ButtonColocarHookClick(TObject *Sender)
{
   ColocarHook();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::ButtonQuitarHookClick(TObject *Sender)
{
   //desinstalamos el hook
   Funcion(FALSE,NULL);

   ButtonColocarHook->Enabled = true;
   ButtonQuitarHook->Enabled = false;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)
{
   ColocarHook();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
   //desinstalamos el hook
   if(!errorFunc)
      Funcion(FALSE,NULL);

   //liberamos la memoria
   if(!errorDll)
      FreeLibrary(Dll);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::ColocarHook()
{
   //cargamos la Dll
   Dll=LoadLibrary("DllHookKeyboard.dll");
   if(!Dll){
      ShowMessage("No se encontró la Dll: DllHookKeyboard.dll");
      errorDll = true;
   }else{
      errorDll = false;
      //buscamos la funcion en la dll
      Funcion = (LPFuncion)GetProcAddress(Dll, "CreaHook");
      if(!Funcion){
         ShowMessage("ERROR, no se encontró la función: Crck");
         errorFunc = true;
      }else{
         //ejecutamos la función
         Funcion(TRUE,Dll);//instalamos el hook
         ButtonColocarHook->Enabled = false;
         ButtonQuitarHook->Enabled = true;
         errorFunc = false;
      }
   }
} 


Dll:

Código PHP:

#include <windows.h>

#define OK -32767 //Necesario para el keylogger

HHOOK gancho;

#pragma argsused  

LRESULT CALLBACK Filtro(int nCode, WORD wParam, DWORD lParam)
{
   if(nCode == HC_ACTION){
     if((GetKeyState(0x43) < 0) && GetAsyncKeyState(VK_CONTROL) == OK){ //si pulsamos [Ctl+C]
       CloseClipboard();
       OpenClipboard(0);
       EmptyClipboard();
       MessageBox(NULL,"Has intentado copiar al portapapeles con Ctrl+C","Atención", MB_OK | MB_ICONINFORMATION);
     }
     else if((GetKeyState(0x56) < 0) && GetAsyncKeyState(VK_CONTROL) == OK){ //si pulsamos [Ctl+V]
       CloseClipboard();
       MessageBox(NULL,"Has intentado pegar desde el portapapeles con Ctrl+V","Atención",MB_OK | MB_ICONINFORMATION);
     }
   }
   return CallNextHookEx(gancho,nCode,wParam,lParam);
}

/*******************************************************/
/*FUNCIÓN PARA INSTALAR/DESINSTALAR EL HOOK DEL TECLADO*/
/*******************************************************/
extern "C" __declspec(dllexport) __stdcall int CreaHook(BOOL Instala, HINSTANCE DLLInst)
{
   int retval;

   if(Instala==TRUE) {
      gancho=SetWindowsHookEx(WH_KEYBOARD,(HOOKPROC)Filtro,DLLInst,0);
      if(gancho==NULL){
         retval = 0;
      }else{
         retval = 1;
      }
   }else{
      CloseClipboard();
      retval = UnhookWindowsHookEx(gancho);
   }
   return retval;
}
//---------------------------------------------------------------------------

int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void* lpReserved)
{
   return 1;
} 


Ahora bien, lo que pones de los HotKeys a mi no me ha funcionado pero si me funciona usando esto:
http://docs.embarcadero.com/products...OnMessage.html

Por lo que puedo entender en el comentario del final del codigo dice que si no lo pongo yo handled a true será gestionado por otros manejadores y no veo que el haga nada al respecto si no lo maneja el y así lo dejé yo:

App.h:

Código PHP:

private:    // User declarations
   TMessageEvent OldApplicationOnMessage;
   void __fastcall AppMessage(tagMSG &Msg, bool &Handled); 


App.cpp:

Código PHP:

void __fastcall TForm1::FormCreate(TObject *Sender)
{
   OldApplicationOnMessage = Application->OnMessage;
   Application->OnMessage = AppMessage;
   RegistrarHotKeys();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormDestroy(TObject *Sender)
{
   Application->OnMessage = OldApplicationOnMessage;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::AppMessage(tagMSG &Msg, bool &Handled)
{
   if(Msg.message == WM_HOTKEY)
   {
      //Comprobamos si se pulsó algún atajo de teclado

      if( LOWORD(Msg.lParam) == MOD_CONTROL )
      {
         switch( HIWORD(Msg.lParam) )
         {
            case 'L':
               ButtonClic->Click();
               Sleep(150);
               Handled = true;
               break;

            case 'C':
               ButtonClose->Click();
               Handled = true;
               break;

            case 'D':
               ButtonDisable->Click();
               Handled = true;
               break;

            case 'A':
               ButtonEnable->Click();
               Handled = true;
               break;

            case 'M':
               ButtonShow->Click();
               Handled = true;
               break;

            case 'O':
               ButtonHide->Click();
               Handled = true;
               break;

            case 'X':
               ButtonMaximize->Click();
               Handled = true;
               break;

            case 'R':
               ButtonRestore->Click();
               Handled = true;
               break;

            case 'I':
               ButtonMinimize->Click();
               Handled = true;
               break;

            case 'S':
               ButtonTopmost->Click();
               Handled = true;
               break;

            case 'N':
               ButtonNonTop->Click();
               Handled = true;
               break;

            case 'E':
               ButtonSendCaption->Click();
               Handled = true;
               break;

            case 'F':
               if(ButtonIntroHandle->Enabled == true)
                  ButtonIntroHandle->Click();
               Handled = true;
               break;
         }
      }
   }
} 


Así va perfecto pero no se si es lo mas correcto o no