哪位大虾帮个忙,关于hotkey的,谢谢!(30分)

菜中菜 · 2002-05-28

象QQ的系统参数设置HOTKEY一样,在任何情况下能激活的热键... 程序用3个HOTKEY,可以自定义的那种... 哪位能贴一下CODE,谢谢!!!

PFans · 2002-05-28

{按Ctrl+Alt+Z调出记事本} procedure TForm1.FormCreate(Sender: TObject); begin   RegisterHotkey(handle,GlobalAddAtom('Hotkey1'),mod_control+     mod_Alt,ord('Z'));   //定义热键Ctrl+Alt+Z end; procedure TForm1.WMHOTKEY(var msg: TWMHOTKEY); begin   WinExec('notepad',SW_show); end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin   UnRegisterHotkey(handle,GlobalAddAtom('Hotkey1')); end;

菜中菜 · 2002-05-29

不能自定义啊？怎么用HOTKEY插件，并且随时都能激活？

yzhshi · 2002-05-29

var   HotkeyId :Integer;   HotkeyId:=GlobalAddAtom(Pchar('UserDefineHotKey'))-$C000; //减去$C000是为了保证取值范围的限制   RegisterHotkey(Handle,Hotkeyid,MOD_CONTROL or MOD_Alt, $41);//敏感键为ctrl+Alt+A   UnRegisterhotkey(Handle,HotkeyId);   DeleteAtom(HotKeyID);

cozo · 2002-05-29

我有个控件，AMHotkey，D5,D6都能用。你要吗？

菜中菜 · 2002-05-29

to yzhshi: 我需要的是能自定义的... TO COZO：DELPHI里不是有HOTKEY控件吗？那个能用吗？

dittw · 2002-06-01

对这个问题讨论得够多啦！ 给个联系方式发给你一个！前一阵子做过了！

upfeed · 2002-06-01

怎么用汇编写呀？

菜中菜 · 2002-06-02

有的话请发我信箱里，谢谢！！ E-mail: k@sohu.com QQ:245022

晶晶 · 2002-06-02

QQ是用DLL做的这个功能，里面有个钩子啊，我想做这样的东西应该没有问题的，你要的话 告诉我，我写一下，好久没有试试身手了，呵呵！！！！ my e-mail address:tufeiping@sina.com

菜中菜 · 2002-06-02

请晶晶帮着写一个,然后把CODE发到 k@sohu.com 谢谢....... 顺便问一下，hotkey控件是做什么用的？为什么需要用dll实现呢？

晶晶 · 2002-06-02

菜中菜：你要的代码和程序我刚写好，发给你了，接收啊！呵呵 hotkey是做什么的？我也不知道，可能是和我写的那个DLL差不多的意思吧，至少功能一样。 至于为什么要用DLL来实现热键功能简单说明如下： 我们做的每个程序都可以在主窗体上设置HOTKEY，但这个键只有当这个程序的窗体处于当前 窗体（焦点位于这个程序的主窗体上）！如果这个程序我们将它缩小，或是启动别的程序， 使别的程序变成当前窗口，那么我们就不可以用刚才那个HOTKEY的功能了，这是因为HOTKEY 是属于进程的一个函数，要象QQ那样，无论是QQ为当前窗口，还是隐藏的，我们都可以用 Alt+Ctrl+Z来打开QQ，这就要在系统中安装钩子，这个钩子负责监视所有的键盘触发消息， 而钩子函数的安装最典型的方法就是“DLL注入”，通过“DLL注入”方法我们还可以用钩子 实现很多有意思的功能！

菜中菜 · 2002-06-03

非常感谢晶晶！！！！！！！ 我刚学delphi没几天，很菜啊 我这里有程序,是f12激活的code，没用dll 继续问: 我现在想做的是，把下面这个程序改成用户用hotkey控件可以及时自定义快捷健... 就是用HOTKEY控件读入快捷键,然后将其SCANCODE赋与key,我想这就应该可以实现了 我用showmessage(inttostr(hotkey1.HotKey));查看SCANCODE的,查出F12是123,确实可以实现 CTRL+ALT+X的SCANCODE 是49240,我把KEY:=123 改成KEY:=49240后,用C-A-X却无法激活程序,不知何故? //code unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls; type   TForm1 = class(TForm)     Button1: TButton;     procedure FormCreate(Sender: TObject);     procedure FormClose(Sender: TObject; var Action: TCloseAction);   private     procedure WMHotKey(var Msg : TWMHotKey); message WM_HOTKEY;     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1;   ID:integer; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); var key:integer; begin     id:=GlobalAddAtom('MyHotkey');     key:=123;//scancode of F12 is 123     RegisterHotKey(handle,id,0,key); end; procedure TForm1.WMHotKey (var Msg : TWMHotKey); begin   if msg.HotKey = id then showmessage('You pressed F12'); end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin    UnRegisterHotKey(handle,id);    GlobalDeleteAtom(id); end; end.

晶晶 · 2002-06-03

代码中你是向系统注册热键，请注意RegisterHotKey()函数的用法，你可以查找帮助，上面 是这样写的：BOOL RegisterHotKey(     HWND hWnd, // window to receive hot-key notification     int id, // identifier of hot key     UINT fsModifiers, // key-modifier flags     UINT vk // virtual-key code//注意这里写的，是“虚拟键”的键值 虚拟键值为49240？？没有啊，当然函数就返回false了。这种方法我很少用，不好！！

晶晶 · 2002-06-03

你应该这样写： RegisterHotkey(handle,GlobalAddAtom('Hotkey'),mod_control+mod_Alt,ord('X')); 再在消息处理代码中加入你要处理的winexec()就可以了！！！！

晶晶 · 2002-06-03

BOOL RegisterHotKey(     HWND hWnd, // window to receive hot-key notification     int id, // identifier of hot key     UINT fsModifiers, // key-modifier flags     UINT vk // virtual-key code 参数UINT fsModifiers就是你要设定的组合键了，用0表示不用组合键！可以结束这个问题 的讨论了，发分吧！！呵呵

菜中菜 · 2002-06-03

感动~~~~~~~~ 晶晶，谢您了~~~~~~~```````````````````````````````````````````````````````````````````````````````````````````````````````````````````

菜中菜 · 2002-06-03

TO jingjing: http://lilixp.topcities.com/hotkey.htm 我写好了，没用hook和dll，我把code也传了，你看看对不对 code的密码是turbo

晶晶 · 2002-06-05

看了，试了一下，不错啊！！！

菜中菜 · 2002-06-06

我现在在考虑一个问题..... 交替、双击热键实现靠什么 只能利用timer判断上次击剑内容与间隔？ 还有别的方法了吗？

哪位大虾帮个忙,关于hotkey的,谢谢!(30分)

菜中菜

Unregistered / Unconfirmed

PFans

Unregistered / Unconfirmed

菜中菜

Unregistered / Unconfirmed

yzhshi

Unregistered / Unconfirmed

cozo

Unregistered / Unconfirmed

菜中菜

Unregistered / Unconfirmed

dittw

Unregistered / Unconfirmed

upfeed

Unregistered / Unconfirmed

菜中菜

Unregistered / Unconfirmed

晶晶

Unregistered / Unconfirmed

菜中菜

Unregistered / Unconfirmed

晶晶

Unregistered / Unconfirmed

菜中菜

Unregistered / Unconfirmed

晶晶

Unregistered / Unconfirmed

晶晶

Unregistered / Unconfirmed

晶晶

Unregistered / Unconfirmed

菜中菜

Unregistered / Unconfirmed

菜中菜

Unregistered / Unconfirmed

晶晶

Unregistered / Unconfirmed

菜中菜

Unregistered / Unconfirmed

Similar threads