（请教）如何为程序设置热键(100分)

设计要求：按下热键时，程序显示在最前面，而不影响其他程序的运行。再次按下热键<br>则隐藏起来

做一個勾子程序不就行了嗎?

如前篇文章所述,在热键消息处理程序中SetForeGroundWindow(你的程序主窗口.Handle)

最好是用钩子，我有代码的，<br>要的话MAIL to:sunhuiNO1@hotmail.com

查一下旧资料,ok?

form得oncreate里面：<br>//定义快捷键<br>&nbsp; hotkeyid:=globaladdatom(pchar('自定义快捷键'))-$c000; //自动获得一个快捷键值<br>&nbsp; registerhotkey(handle,hotkeyid,mod_control or mod_alt,13); //快捷键为ctl+alt+enter<br><br>form得destroy里面：<br>&nbsp; //释放快捷键资源<br>&nbsp; &nbsp;unregisterhotkey(handle,hotkeyid);<br>&nbsp; &nbsp;deleteatom(hotkeyid);<br><br>//快捷键消息处理<br>public:<br>&nbsp; &nbsp; procedure wmhotkeyhandle(var msg:tmessage);message wm_hotkey;<br>implementation<br>procedure tform1.wmhotkeyhandle(var msg:tmessage);<br>begin<br>&nbsp; if (msg.LParamHi=13) and(msg.LParamLo=mod_control or mod_alt) then<br>&nbsp; &nbsp; showmessage('你按下了自定义快捷键ALT+CTL+ENTER');<br>end;

试试这个！<br>unit Unit1globaladdatom;<br><br>interface<br><br>uses<br>&nbsp; Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,<br>&nbsp; Dialogs;<br><br>type<br>&nbsp; TForm1 = class(TForm)<br>&nbsp; &nbsp; procedure FormCreate(Sender: TObject);<br>&nbsp; &nbsp; procedure FormDestroy(Sender: TObject);<br>&nbsp; private<br>&nbsp; &nbsp; { Private declarations }<br>&nbsp; &nbsp; procedure HotKeyProc(Var msg:TWMHotKey);message WM_HotKey;<br>&nbsp; public<br>&nbsp; &nbsp; { Public declarations }<br>&nbsp; end;<br><br>var<br>&nbsp; Form1: TForm1;<br>&nbsp; HotKey1:word;<br>implementation<br><br>{$R *.dfm}<br><br>procedure TForm1.FormCreate(Sender: TObject);<br>begin<br>&nbsp; HotKey1:=GlobalAddAtom('nnss');<br>&nbsp; RegisterHotKey(handle,HotKey1,0,VK_F9); //热键是F9<br>end;<br><br>procedure TForm1.FormDestroy(Sender: TObject);<br>begin<br>UnRegisterHotKey(handle,HotKey1)<br>end;<br><br>procedure TForm1.HotKeyProc(var msg: TWMHotKey);<br>begin<br>&nbsp; &nbsp; showmessage('hi');<br>end;<br><br>end.

accpet