unitfrmmain.pas

oracle基础知识讲义

unit unitFrmMain;

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
    hotkeyid: integer;
    procedure WMhotkeyhandle(var msg: Tmessage);
      message WM_HOTKEY; //响应热键消息
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
  hotkeyid := GlobalAddAtom(pchar
    ('UserDefineHotKey')) - $C000;
    //减去$C000是为了保证取值范围的限制
  registerhotkey(handle, hotkeyid,
    MOD_WIN or MOD_ALT or MOD_CONTROL, $41);
    //热键为WIN键+ ctrl+Alt+A
end;

procedure TForm1.WMhotkeyhandle(var msg: Tmessage);

begin
  if (msg.LParamHi = $41) and
    (msg.lparamLo = MOD_CONTROL or mod_Alt or MOD_WIN) then
  begin
    msg.Result := 1; //该消息已经处理
    application.BringToFront;
    ShowMessage('你已经按下热键')
  end;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  unregisterhotkey(handle, hotkeyid);
  DeleteAtom(HotKeyID);
end;

end.