注册全局热键应用例子
来源:互联网 发布:java线程池并发实例 编辑:程序博客网 时间:2024/04/30 00:04
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
hotkeyid : array[1..5] of integer;
procedure WMhotkeyhandle(var msg:Tmessage);
message wm_hotkey;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
{ TForm1 }
procedure TForm1.WMhotkeyhandle(var msg: Tmessage);
begin
if (msg.LParamHi = $41) and (msg.LParamLo = mod_control or mod_alt) then
begin
application.BringToFront;
end;
if msg.LParamHi = vk_F5 then
application.Restore;
if msg.LParamHi = vk_F6 then
application.Minimize;
if msg.LParamHi = vk_F7 then
showmessage(datetostr(now()));
if msg.LParamHi = vk_F8 then
application.Terminate;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
i : integer;
begin
for i :=1 to 5 do
hotkeyid[i] := globaladdatom(pchar('myhotkey'+inttostr(i)))-$c0000;
registerhotkey(handle,hotkeyid[1],mod_control or mod_alt,$41);
registerhotkey(handle,hotkeyid[2],0,vk_F5);
registerhotkey(handle,hotkeyid[3],0,vk_F6);
registerhotkey(handle,hotkeyid[4],0,vk_F7);
registerhotkey(handle,hotkeyid[5],0,vk_F8);
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
i : integer;
begin
for i := 1 to 5 do
unregisterhotkey(handle,hotkeyid[i]);
deleteatom(hotkeyid[i]);
end;
end.
- 注册全局热键应用例子
- C#注册全局热键
- [测试]注册全局热键
- C#注册全局热键
- c#注册全局热键
- C#注册全局热键
- Delphi全局热键注册
- Qt5注册全局热键
- Qt注册全局热键
- 第九节 组合热键与注册全局热键
- MFC中注册全局热键
- 如何注册全局热键(c++builder)
- VC如何注册、屏蔽全局键盘热键
- C#注册全局热键的方法
- VC如何注册、屏蔽全局键盘热键
- 使用WinAPI全局热键注册和全局模拟按键
- 全局热键
- 全局热键
- 安装Ubuntu 8.04后需要立刻做的几件事
- 个性与习惯是站长的主要弱点
- 新的一个学年
- (转帖)《解剖PetShop》系列之三 PetShop数据访问层之消息处理
- (转帖)《解剖PetShop》系列之四 PetShop之ASP.NET缓存
- 注册全局热键应用例子
- (转帖)《解剖PetShop》系列之五 PetShop之业务逻辑层设计
- API读写ini文件
- (转帖)《解剖PetShop》系列之六 PetShop之表示层设计
- 我的老婆
- 植入式营销(百度百科)
- 网易的集邮中心--成功的植入式营销
- 网络技术核心
- 浅析客户端的页面传值