Hook de Teclado + DLL

[dec]

Hola,

Más o menos:

 void __fastcall TForm1::FormCreate(TObject *Sender)
 {
   Application->OnMessage = AppMessage;
   //
   // 79 es el código ASCII de la letra "O". No he conseguido encontrar la función
   // correspondiente a "Ord" (en Delphi) aquí en C++ Builder. He probado con
   // Integer("O") y con Cardinal("0"), pero, no funciona, así que al cabo he optado
   // por pasar como tercer parámetro de "RegisterHotKey" el número 79, que ya sabes
   // lo que quiere significar. ;)
   //
   RegisterHotKey(Application->Handle, GlobalAddAtomA("MiHotKey"), MOD_CONTROL, 79);
 }
 
 void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
 {
   UnregisterHotKey(Application->Handle, GlobalAddAtomA("MiHotKey"));
 }
 
 // Declarado en la cláusula "private" de "TForm1"
 //
 void __fastcall TForm1::AppMessage(tagMSG &Msg, bool &Handled)
 {
   if (Msg.message == WM_HOTKEY)
   {
 	if ( (LOWORD(Msg.lParam) == MOD_CONTROL) && (HIWORD(Msg.lParam) == 79) )
 	  ShowMessage("Pulsaste las teclas CTRL + O");
   }
 }

Edito: Adjunto un archivo para que veas "la cosa" funcionando.