关于录音机的热键设置问题！望高手指点！！！！(50分)

小弟不才，最近做了一个录音机软件，我想给这个软件设置上热键，热键的要求就是
当点击键盘上的某个键子，使其功能与软件的某个Button的功能一致（例如：点击键盘
上的“P”键时录音机开始录音，就相当于软件上的播放按钮）请问怎么实现？我是个
初学者希望各位大虾能讲的详细一点。谢谢。

用RegisterHotKey注册热键。

先将主窗体的KeyPreview设为True，然后：

procedure TForm1.FormKeyDown(Sender: TObject;
var Key: Word;
Shift: TShiftState);
begin

case Key of
Ord('P'):
//btnPlay.Click;
Ord('N'):
//btnNext.Click;
end;

end;

//下面的可以当你的程序不在前台时接收到按键
......
procedure OnWMHotKey(var Msg: TWMHotKey);message WM_HOTKEY;
......
var
Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin

RegisterHotKey(Handle,1,MOD_CONTROL,Ord('P'));
end;


procedure TForm1.FormClose(Sender: TObject;
var Action: TCloseAction);
begin

UnregisterHotKey(Handle,1);
end;


procedure TForm1.OnWMHotKey(var Msg: TWMHotKey);
begin

ShowMessage('Key pressed!');
end;

多人接受答案了。