怎么做热键编程

Question

就是按热键响应功能,哪位高手教教小弟

Answer 1

有一个LMD的热键控件,方上去就行了.

Answer 2

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    id: Integer;
    procedure WMHotKey(var Msg : TWMHotKey); message WM_HOTKEY;
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation  const RSP_SIMPLE_SERVICE=1;
  function RegisterServiceProcess (dwProcessID, dwType: DWord) : DWord; stdcall; external 'KERNEL32.DLL';{$R *.dfm}procedure TForm1.WMHotKey (var Msg : TWMHotKey);
begin
  if msg.HotKey = id then
    showmessage('你按下热键');
end;
procedure TForm1.FormCreate(Sender: TObject);
Const
  {ALT、CTRL和F1键的虚拟键值}
  MOD_ALT = 1;
  MOD_CONTROL = 2;
  VK_F1 = 112;
begin
  if GlobalFindAtom('MyHotkey') = 0 then
    begin
      id:=GlobalAddAtom('MyHotkey');
      RegisterHotKey(handle,id,0,VK_F1);//如果是ALT+F1则为：RegisterHotKey(handle,id,MOD_ALT,VK_F1);如果是Ctrl+Alt+F1则为：RegisterHotKey(handle,id,MOD_CONTROL+MOD_ALT,VK_F1);
    end
  else
    showmessage('热键冲突！');
end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  UnRegisterHotKey(handle,id);
  GlobalDeleteAtom(id);
end;end.