Delphi注册热键

type
  TForm1 = class(TForm)
    btn1: TButton;
    btn2: TButton;
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
  private

  public
    //关键位置:建立一个子程序 处理wm_hotkey的消息
    procedure gethotkeymsg(var msg:TMessage);
    message wm_hotkey;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
var j_i:LongBool;
begin
    j_i:=RegisterHotKey(Form1.handle,7999,0,113);//注册热键(f2)
    //参数3的0为注册单热键 为1则是组合键ALT+参数4,为2则是组合键Crtl+参数4
    if j_i <>True  then
    begin
      ShowMessage('F2热键已注册');
    end;
end;

procedure TForm1.gethotkeymsg(var msg:TMessage);
begin
       if msg.WParam=7999 then
       begin
         ShowMessage('热键F2起作用了');
       end;
end;

procedure TForm1.btn2Click(Sender: TObject);
begin
    UnregisterHotKey(Form1.Handle,7999);
end;

关键位置1.TForm类下公有接口里建立一个子程序 处理wm_hotkey消息

procedure gethotkeymsg(var msg:TMessage);
    message wm_hotkey;

这2句都要加

          2.调用RegisterHotKey注册热键 UnregisterHotKey撤消热键 因为已在窗口类里申明处理wm_hotkey消息,所以用在窗口类的申明的消息处理子程序处理消息