全局热键在Delphi中的应用实例

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
  id: array [1..10] of Integer;
  idstring:array [1..10] of string;
  procedure WMHotKey(var msg : Tmessage); message WM_HOTKEY;{响应全局热键按键消息的过程}
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
  i:byte;
begin
  for i:=1 to 10 do
  begin
    UnRegisterHotKey(handle,id[i]);// 释放你应用程序定义的热键
    GlobalDeleteAtom(id[i]);// 从原子表删除你定义的热键的原子标识号
  end;
end;



procedure TForm1.FormCreate(Sender: TObject);
var
  i:byte;
begin
  for i:=1 to 10 do
  begin
    idstring[i]:=inttostr(i);
    id[i]:=GlobalAddAtom(pchar('MyHotkey'+idstring[i]))-$C000;
    {因为GlobalAddAtom 函数返回的值在0xC000-0xFFFF范围之间，减去$C000是为了取值范围的唯一性 }
    RegisterHotKey(handle,id[i],MOD_CONTROL ,111+i);
    //112为F1 、113为F2…、121为F10
  end;
end;

procedure TForm1.WMHotKey (var Msg : Tmessage);
begin
  {Ctrl+F1键被按下}
  if (msg.LParamHi=112 ) and (msg.lparamlo=MOD_CONTROL ) then
  begin
    msg.Result:=1;//该消息已经被处理
    application.BringToFront ;
    label1.Caption := 'Ctrl+F1';
  end;
  {Ctrl+F2键被按下}
  if (msg.LParamHi=113 ) and (msg.lparamlo=MOD_CONTROL ) then
  begin
    msg.Result:=1;
    application.BringToFront ;
    label1.Caption := 'Ctrl+F2';
  end;
  {Ctrl+F3键被按下}
  if (msg.LParamHi=114 ) and (msg.lparamlo=MOD_CONTROL ) then
  begin
    msg.Result:=1;
    application.BringToFront ;
    label1.Caption := 'Ctrl+F3';
  end;
  {Ctrl+F4键被按下}
  if (msg.LParamHi=115 ) and (msg.lparamlo=MOD_CONTROL ) then
  begin
    msg.Result:=1;
    application.BringToFront ;
    label1.Caption := 'Ctrl+F4';
  end;
  {Ctrl+F5键被按下}
  if (msg.LParamHi=116 ) and (msg.lparamlo=MOD_CONTROL ) then
  begin
    msg.Result:=1;
    application.BringToFront ;
    label1.Caption := 'Ctrl+F5';
  end;
  {Ctrl+F6键被按下}
  if (msg.LParamHi=117 ) and (msg.lparamlo=MOD_CONTROL ) then
  begin
    msg.Result:=1;
    application.BringToFront ;
    label1.Caption := 'Ctrl+F6';
  end;
  {Ctrl+F7键被按下}
  if (msg.LParamHi=118 ) and (msg.lparamlo=MOD_CONTROL ) then
  begin
    msg.Result:=1;
    application.BringToFront ;
    label1.Caption := 'Ctrl+F7';
  end;
  {Ctrl+F8键被按下}
  if (msg.LParamHi=119 ) and (msg.lparamlo=MOD_CONTROL ) then
  begin
    msg.Result:=1;
    application.BringToFront ;
    label1.Caption := 'Ctrl+F8';
  end;
  {Ctrl+F9键被按下}
  if (msg.LParamHi=120 ) and (msg.lparamlo=MOD_CONTROL ) then
  begin
    msg.Result:=1;
    application.BringToFront ;
    label1.Caption := 'Ctrl+F9';
  end;
  {Ctrl+F10键被按下}
  if (msg.LParamHi=121 ) and (msg.lparamlo=MOD_CONTROL ) then
  begin
    msg.Result:=1;
    application.BringToFront ;
    label1.Caption := 'Ctrl+F10';
  end;
end;

end.