100分请教：如何实现热键呼出功能？？？？分数不够可以再加！

Question

一、敏感键的设置 ---- 在windows Api中有一个函数RegisterHotKey用于设置敏感键，它的调用方式如下：      BOOL RegisterHotKey(
     HWND hWnd, //响应该敏感键的窗口句柄
     Int id, //该敏感键的唯一标示符
     UINT fsModifiers, //该敏感键的辅助按键
     UINT vk  //该敏感键的键值
     );
　---- 其中敏感键的唯一标示符在Window中规定应用程序的取值范围为0x0000到0xBFFF之间，动态链接库的取值范围为0xC000到0xFFFF之间。为了保证其唯一性建议使用GlobalAddAtom函数来设置敏感键的唯一标示符。需要注意的是GlobalAddAtom还回的值是在0xC000到0xFFFF范围之间，为满足RegisterHotKey的调用要求，如果是在应用程序中设置敏感键可以利用GlobalAddAtom还回值减去0xC000。 ---- 敏感键的辅助按键包括Mod_Ctrl 、Mod_Alt、Mod_Shift,对于Windows兼容键盘还支持Windows键，即其键面上有Windows标志的那个键，其值为Mod_win。 ---- 在Delphi中建立一个“New Application”，在Tform1中的Private段中加入如下代码  private
  { Private declarations }
  hotkeyid  :integer;
  procedure WMhotkeyhandle(var msg:Tmessage);
       message wm_hotkey; //响应敏感键按键消息
在FormCreate事件中加入如下代码
 …
 hotkeyid:=GlobalAddAtom(pchar
(“UserDefineHotKey”))-$C000;
    //减去$C000是为了保证取值范围的限制
 registerhotkey(handle,hotkeyid,
MOD_CONTROL or mod_Altt,$41); 
    //敏感键为ctrl+Alt+A
   …
　二、敏感键的响应 ---- 一旦敏感键设置成功，在程序应用过程中如果有相应敏感键被按下，Windows系统都会给你的应用程序发送一个消息WM_HOTKEY，不管你的应用程序是否为当前活动的。其中WM_HOTKEY消息的格式为： idHotKey = (int) wParam;
     // 该参数在设置系统级的敏感键有用,一般不予使用
fuModifiers = (UINT) LOWORD(lParam); 
    //敏感键的辅助按键
      uVirtKey = (UINT) HIWORD(lParam);
   //敏感键的键值
　---- 因为Windows系统只是把一个WM_HotKey的消息发送给应用程序,要完成具体的事情需要一个消息处理程序,也就是上面Private段里的procedure WMhotkeyhandle(var msg:Tmessage); message wm_hotkey; 过程, 它的代码如下(这里只是简单地把窗口最前面显示)   procedure TForm1.Wmhotkeyhandle
(var msg:Tmessage);
     begin
       if (msg.LParamHi=$41) and 
(msg.lparamLo=MOD_CONTROL or mod_Alt) then 
       begin
         msg.Result:=1; //该消息已经处理
         application.BringToFront; 
//把窗口最前面显示
       end;
     end;
　三、敏感键的释放 ---- 在应用程序退出来之前应当把你所设置的敏感键释放掉,以释放其所占有的系统资源,这里需要调用两个Windows API函数UNREGISTERHOTKEY,它的调用格式如下:    BOOL UNREGISTERHOTKEY(
      HWND HWND, //与敏感键关联的窗口句柄
      INT ID  //敏感键的标示符
    );
  也就是说只要在FormClose事件中加入如下代码
   …
   unregisterhotkey(handle,hotkeyid);
   DeleteAtom(HotKeyID);

Answer 1

1.进程建立的时候注册热键：
RegisterHotKey(Handle,1001,MOD_CONTROL or MOD_ALT, Ord('Z'));
//表示热键为ctrl+alt+z
2.处理热键消息：
procedure Tfrm_Main.WndProc(var Msg: TMessage);
begin
  if Msg.Msg = WM_HOTKEY then
  begin
    if Msg.WParam= 1001 then
    Begin
      frm_AgentMsg.Show;//这里处理热键事件
    end;
  end else
    Msg.Result := DefWindowProc(WindowHandle, Msg.Msg, Msg.wParam, Msg.lParam);
  inherited WndProc(Msg);
end;
3.在进程撤销时释放热键：
 UnregisterHotKey(Handle, 1001);

Answer 2

定义一个FORM的KEYDOWN过程
IF KEY=VK_F1 THEN.........

Answer 3

跟你一个例子！！！！
var
  h : hwnd;
  dc1:hdc;
begin
  h := Findwindow(nil,'form1');
  //OpenIcon(h);
  if RegisterHotKey(h,828555,MOD_SHIFT+MOD_ALT ,65) then
     showmessage('regist shortcut(shift+a) had succeeded!');
  exit;
  if h<>null then //关闭窗口
    begin
    SendMessage(h,WM_close ,0,0);
   end;
end;

Answer 4

看来没有我想象的复杂，我还以为要用的HOOK什么的，检测键盘消息呢。谢谢各位大虾，请继续。