unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure WmHotkey(var Msg: TMessage); message WM_HOTKEY;
 
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;
 
var
  Form1: TForm1;
  function RegisterHotKey(hWnd, id, fsModifiers, vk:cardinal):boolean; stdcall; external 'user32.dll' name 'RegisterHotKey';
 
implementation
 
{$R *.dfm}
 
procedure TForm1.WmHotkey(var Msg: TMessage);
begin
 
  if Msg.WParam = 1 then begin
     showmessage('Aktion Taste 1');
  end;
 
  if Msg.WParam = 2 then begin
     showmessage('Aktion Taste 2');
  end;
 
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
RegisterHotKey(handle, 1, 0, $27) ; // Cursor Rechts
RegisterHotKey(handle, 2, 0, $28) ; // Cursor Unten
end;
 
end.