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);
end;
procedure Unregister;
begin
unregisterhotkey(self.Handle, 0);
unregisterhotkey(self.Handle, 1);
unregisterhotkey(self.Handle, 2);
end;
procedure TForm1.WndProc(var Msg: TMessage);
if msg.msg = wm_hotkey then
begin
case msg.WParam of
0: 1: 2: end; inherited WndProc(Msg); 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