Cuantas HOTKEY se pueden registrar simultaneamente?

[JuanErasmo]

Buenos Dias amigos....
Estoy intentando hacer un programa para que registre todas las teclas que se digitan en un PC en las diferentes aplicaciones ( Word, Excel, Internet ....todas), y vi en un hilo que utilizan

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);
RegisterHotKey(Application->Handle, GlobalAddAtomA("MiHotKey2"), 0 , 79);
}
//---------------------------------------------------------------------------
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");
}
}
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
UnregisterHotKey(Application->Handle, GlobalAddAtomA("MiHotKey"));
}

lo que no se, es si con registerHotKey se pueden registrar todas las teclas del teclado para que registre los eventos....
Es posible con esta funcion? o debo buscar otra?
Gracias por su respuesta!

[Neftali [Germán.Estévez]]

Creo que te estás confundiendo.
Lo que tu pretendes (por lo que he entendido) es guardar constancia de todo lo que se teclea y el código (API) a la que heces referencia lo que hace es "Registrar una combinación de teclas", lo que quiere decir que esa combinación es accesible desde cualquier programa que se ejecute en ese sistema de forma global.

[JuanErasmo]

Hola Neftali!
Como puedo guardar constancia de todo lo que se teclea entonces?
teniendo mi aplicación en background?
Es posible?
Gracias

[[Lepe]]

RegisterHotKey está pensado para combinaciones de teclas... pero nada te impide realizarlo con la tecla A, B, C, D.

Es simplemente un gancho a la tecla/combinación que sea. Y sí, mientras tu aplicación esté funcionando recibirá la tecla pulsada por el usuario, ya esté en Word, Excel, Bloc de notas, etc. De hecho la recibe antes que las demás aplicaciones, por tanto, tú en tu keylogger deberás permitir el paso de la tecla hacia las demás aplicaciones.

Se permiten 49.151 teclas registradas, ya que segun la ayuda el rango es de:

Empezado por Api de delphi

range 0x0000 through 0xBFFF. A shared dynamic-link library (DLL) must specify a value in the range 0xC000 through 0xFFFF

RegisterHotKey fails if the keystrokes specified for the hot key have already been registered by another hot key.

Aunque normalmente no hay otras aplicaciones con ganchos de teclado, puede que alguno en particular si esté pillado, y entonces no recibirás la notificación. Consecuentemente no tienes 49.000 ganchos sino algunos menos.

Yo uso ganchos de este tipo para:
Apagar (ctrl+F11),
reiniciar(ctrl+ F10),
forzar reiniciado(ctrl+alt+F10,
forzar apagar(ctrl+alt+F11),
Apagar los monitores(F4),
Abrir mi buscador de programas(F10) .

Hasta ahora no me ha dado problemas.

He hecho la prueba con la tecla A, y tambien funciona.

Saludos

[JuanErasmo]

Gracias otra vez...pero se pueden registrar varias hotkeys?
es decir que mi programa responda a A, B,C, D,E,F todas las que se tecleen...
En el ejemplo anterior solo responde a Ctrl+O, y he intentado registrar por ejemplo la O tambien y no funciona....es decir que responda a cada tecla.....
porque no funciona?
lo hago asi:

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);
RegisterHotKey(Application->Handle, GlobalAddAtomA("MiHotKey2"), 0 , 79);
}
//---------------------------------------------------------------------------
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");
}
else if ((HIWORD(Msg.lParam) == 79) )
ShowMessage("pulsaste O");
}
}
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
UnregisterHotKey(Application->Handle, GlobalAddAtomA("MiHotKey"));
}

Como ves, registro Ctrl+O y tambien O solo, pero en el parámetro MODE = MOD_CONTROL.....no se como decirle que es una tecla normal sin CTRL ni SHIFT es sola.....no se como decirle esto...puede ser que por esta razon no funcione....
Gracias si puedes ayedarme...

[JuanErasmo]

Pero como se puede decir que la tecla es normal?
que no tiene no CTRL ni SHIFT ni nada?
Gracias

[JuanErasmo]

Donde puedo conseguir los números equivalentes a la tecla?
por ejemplo la O es 79, pero las otras cuales son?
Es el codigo ASCII?
Gracias!

[[Lepe]]

Le daré las gracias a Neftali de tu parte....

Lo que recibes por msg.WParam es el GlobalAtom que has definido, no la tecla ni los modificadores, (al menos en delphi es así, garantizado). Yo haciendo caso omiso a la ayuda de delphi hago lo siguiente:

Código Delphi [-]

procedure registrarTeclas:
begin
    registerhotkey(self.Handle, 0, 0, 70);
    registerhotkey(self.Handle, 1, 0, 71);
    registerhotkey(self.Handle, 2, 0, 72); 

// del 70 al 72 es el código ascii que quiero capturar
// el valor 0, 1, 2  son los globalAtom que tu usas, en definitiva:
// números que no se repitan,
end;

procedure Unregister;
begin
  unregisterhotkey(self.Handle, 0);
  unregisterhotkey(self.Handle, 1);
  unregisterhotkey(self.Handle, 2);
// quito el registro a las 3 teclas.
end;

procedure TForm1.WndProc(var Msg: TMessage);
  if msg.msg = wm_hotkey then
  begin
    case msg.WParam of
      0: // se recibe el codigo 70
      1: // se recibe el codigo 71
      2: // se recibe el codigo 72
    end; // case
  inherited WndProc(Msg); // para que lo reciban las demás aplicaciones.
end;

Digo que hago caso omiso a la ayuda, porque allí dice que use GlobalAtom, obviamente si hay otras aplicaciones que estan usando ganchos, podría ser que 0, 1 y 2 estuviesen ya cogidos y no me deje registrar la tecla.

Obviamente tu código está mejor, porque usas GlobalAtom que te garantiza un número que no existe en el sistema, pero claro, tienes que guardar el GlobalAtom para poder relacionarlo despues en el procedure AppMessage.

Yo probé pasándoles números enteros, 0, 1, 2 y funcionó. Eso sí deben ser números que no se repitan, ya no recuerdo si deben ser consecutivos o no....

Para el tema de modificadores ctrl, alt y shift, va así:
shift = 4
ctrl = 2
Alt = 1

De tal forma que si quieres "ctrl + alt" pues suma sus valores y pones un 3.
Esto equivale a MOD_CONTROL + MOD_ALT
Si no quieres parámetros pon un cero.

Es raro que te funcione con Ctrl + O, porque segun explicas... no veo que esté bien implementado, hazlo de la forma que te comento y nos cuentass

Saludos

[[Lepe]]

Si son los códigos ascii, con el mapa de caracteres de windows te da el número en hexadecimal, usas la calculadora de windows y lo pasas a decimal.

Saludos