Hook de Teclado + DLL

[dec]

Hola,

Algo así podría hacerse, más o menos, tratándose de Delphi:

Código Delphi [-]
unit UfrmPrincipal;

interface

uses
  Forms, Windows, Messages, Dialogs;

type
  TfrmPrincipal = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    procedure AppMessage(var Msg: tagMSG; var Handled: Boolean);
  end;

var
  frmPrincipal: TfrmPrincipal;

implementation

{$R *.dfm}

procedure TfrmPrincipal.AppMessage(var Msg: tagMSG; var Handled: Boolean);
begin
  if (Msg.message = WM_HOTKEY) then
  begin
    if (LOWORD(Msg.lParam) = MOD_CONTROL)
      and (HIWORD(Msg.lParam) = Ord('O')) then
        ShowMessage('Pulsaste las teclas "CTRL + O"');
  end;
end;

procedure TfrmPrincipal.FormCreate(Sender: TObject);
begin
  Application.OnMessage := AppMessage;
end;

initialization
  RegisterHotKey(Application.Handle, GlobalAddAtom('MiHotKey'), MOD_CONTROL, Ord('O'));

finalization
  UnregisterHotKey(Application.Handle, GlobalAddAtom('MiHotKey'));

end.

[FeLiXxUcO]

Muchas gasias dec
Aunque ya digo que en Delphi estoy un poco pez.. tratare de traducirlo y ya contare que tal ha ido.
Y si lo logro hacer funciona ya dejare el codigo.
gracias por vuestras respuestas

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