设置全局快捷键

原创 2003年07月22日 07:59:00
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
protected
procedure hotykey(var msg:TMessage); message WM_HOTKEY;
end;

var
Form1: TForm1;
id,id2:Integer;

implementation

{$R *.DFM}


procedure TForm1.hotykey(var msg:TMessage);
begin
if (msg.LParamLo=MOD_CONTROL) and (msg.LParamHi=81) then
begin
ShowMessage('Ctrl + Q ');
end;

if (msg.LParamLo=MOD_CONTROL) and (msg.LParamHi=82) then
begin
ShowMessage('Ctrl + R ');
end;
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
id:=GlobalAddAtom('hotkey');
RegisterHotKey(handle,id,mod_control,81);

id2:=GlobalAddAtom('hotkey2');
RegisterHotKey(handle,id2,mod_control,82);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
UnRegisterHotKey(handle,id);
UnRegisterHotKey(handle,id2);
end;

windows 设置全局快捷键;

简单设置全局快捷键: 组合键win+R 打开控制面板,小图表显示下 点击 管理工具项, 将自己想要谁知快捷键的程序的快捷方式放进去,(需要确认管理员权限) 如图,第...
  • csdn_Joker
  • csdn_Joker
  • 2016年11月27日 16:09
  • 4155

C#实现全局快捷键(系统热键)响应(转)

在应用中,我们可能会需要实现像Ctrl+C复制、Ctrl+V粘贴这样的快捷键,本文简单介绍了它的实现,并给出了一个实现类。 (1)建立一个类文件,命名为HotKey.cs,代码如下:...
  • zxj19951029
  • zxj19951029
  • 2014年10月18日 23:43
  • 451

C#全局热键设置与窗体热键设置实例

1、窗体热键 首先要设置主窗体KeyPreview为true,可直接在属性中进行设置, 或者在窗体加载中设置: this.KeyPreview = true; 然后添加窗体KeyDown事件,如...
  • cuoban
  • cuoban
  • 2016年02月26日 16:16
  • 3350

Delphi使用全局快捷键

Delphi使用全局快捷键 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Gra...
  • gjtao1130
  • gjtao1130
  • 2013年08月08日 14:18
  • 2408

如何实现全局热键

要实现系统范围内的热键
  • wwkaven
  • wwkaven
  • 2014年06月14日 12:39
  • 2276

mac 全局快捷键启动应用程序

在Mac中,我们可以通过很多方式来启动应用程序。比如通过鼠标在Finder中双击或者通过Spotlight或者QuickSilver等工具来启动。可是,你有没有想过通过一个快捷键就来启动一个应用程序呢...
  • qilixiang012
  • qilixiang012
  • 2014年09月23日 11:22
  • 4440

eclipse常用的快捷键--------(真正常用的)

1. ctrl + shift + r:打开资源(不只是用来寻找Java文件) 最常见的就是全局搜索某个文件名。 2.ctrl + h    (FileSearch ) 最常见的就是全...
  • qq_27093465
  • qq_27093465
  • 2016年01月14日 09:28
  • 8132

章鱼哥出品—VB.NET 自定义快捷键使用详解之全局热键

如何设置VB.NET 窗体的全局热键(快捷键),
  • zhangyubishoulin
  • zhangyubishoulin
  • 2014年10月06日 01:49
  • 4190

AS快捷键总结

AndroidStudio快捷键总结
  • Ethan706
  • Ethan706
  • 2015年11月15日 16:03
  • 12377

pycharm快捷键、常用设置、配置管理

http://blog.csdn.net/pipisorry/article/details/39909057本博客一直在同步更新中!内容包含:pycharm学习技巧 Learning tips、Py...
  • pipisorry
  • pipisorry
  • 2014年10月08日 23:47
  • 196557
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:设置全局快捷键
举报原因:
原因补充:

(最多只允许输入30个字)