看流星社区

 找回密码
 注册账号
查看: 3150|回复: 3

[Delphi] delphi在dll 里面能监视热键吗?

[复制链接]

该用户从未签到

发表于 2011-4-4 10:22:39 | 显示全部楼层 |阅读模式
delphi在dll 里面能监视热键吗?    怎么样才能跟 易语言一样 监视热键 来执行程序

该用户从未签到

发表于 2011-4-4 10:22:49 | 显示全部楼层
注册热键啊- -

该用户从未签到

发表于 2011-4-4 10:23:05 | 显示全部楼层
何为 监视热键? 它实现的原理你明白么?
只要你把 易语言 的监视热键  里面的 API 函数都能写出来  用delphi 就容易了
学易语言  经常用 超级模块(Super-EC)  你是什么学不到的 因为它是把API函数都封装在模块里面
你转学delphi 就不容易了   
不过一般都是 先注册热键 然后回调函数 判断 是否按了此键 是就执行 不是就返回
aatom:=GlobalAddAtom('hotkey');   //   类似 易语言的热键ID   有人说是什么原子  我不太理解  
   RegisterHotKey(Form1 .Handle ,aatom,0,VK_F1);// 注册热键 参数1=窗口句柄 参数2=类似易语言的 热键ID  参数3=组合键 参数4=热键

procedure TForm1.hotkey(var msg:tmessage);  // 这个是窗口热键的 回调函数吧 (我也是菜鸟 不是很理解 大牛请指点)
begin
if (msg.LParamHi=VK_F1)  then  //判断 信息 是否是  F1  是就执行
begin        
        addmy ;   // 这是响应 热键的子程序     
end;
end;
(我也是学易语言开始的  现在慢慢学习 delphi  和 C  听人说 只要把一门语言精通 以后学别的语言就简单了 我现在是学的很杂 什么都不精)

该用户从未签到

发表于 2011-4-4 10:23:13 | 显示全部楼层
while GetMessage(msg, 0, 0, 0) do

  begin

    if msg.message = wm_hotkey then
点击按钮快速添加回复内容: 支持 高兴 激动 给力 加油 苦寻 生气 回帖 路过 感恩
您需要登录后才可以回帖 登录 | 注册账号

本版积分规则

小黑屋|手机版|Archiver|看流星社区 |网站地图

GMT+8, 2024-3-29 19:59

Powered by Kanliuxing X3.4

© 2010-2019 kanliuxing.com

快速回复 返回顶部 返回列表