全局热键问题之二

Question

因为我的程序需要多开，多开之后前面开的程序热键就失效了。为此我想用2个思路解决。
1、如果检测到已经注册热键F2，则开始注册热键F3，依次类推。也就是假如我开3个程序，控制他们的热键分别是F2，F3，F4.
2、要么就全都用同一个热键F2，同时可以隐藏或重现。
请问这2种思路如何实现？谢谢。
再次跟上个贴子中的Bo_Sys和kaikai_kk说声抱歉！

Answer 1

LZ也不要放在心上，自己把问题搞懂了即又进步了，知识学到了就是自己的了
我们入门的时候，也经常受批评即使不是多的话，也有可能跟别的软件热键产生冲突
这问题不用搞的太复杂，像QQ一样，在程序里面做个设置，让用户来设置快捷键
初始时快捷键是一样的，用户设置后就使用新的

Answer 2

没有装RzTrayIcon，用系统自带的托盘类，简单的做了一个，按F2隐藏/显示窗体和托盘图标
自己建个工程测试一下，达到效果了再移植到自己的程序上面去吧在程序中注册热键就是用一个button,在click事件加上这2句即可:
UnRegisterHotKey(handle,_HotKey);
RegisterHotKey(Handle,_HotKey,0,vk_F2);//vk_F2变新热键
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    _HotKey:Integer;
    procedure HotKey(var Msg:Tmessage);message WM_HOTKEY;
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementationuses ShellApi;{$R *.dfm}procedure doNotifyIconData(aType: String);
var
  lpData: PNotifyIconData;
begin
  lpData := new(PNotifyIconDataA);
  lpData.cbSize := 88;
  lpData.Wnd := Form1.Handle;
  lpData.hIcon := Application.Icon.Handle;
  lpData.uID :=0;
  lpData.uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
  if (aType = 'add') then
    Shell_NotifyIcon(NIM_ADD, lpData)
  else if (aType = 'del') then
    Shell_NotifyIcon(NIM_DELETE, lpData);
  dispose(lpData);
end;procedure TForm1.HotKey(var Msg:Tmessage);
begin
  if Msg.LParamHi=vk_F2 then
  begin
    if self.Visible then
    begin
      doNotifyIconData('del');
      self.Visible:=false;
    end else
    begin
      doNotifyIconData('add');
      self.Visible:=true;
    end;
  end;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  _HotKey:=GlobalAddAtom('HotKey')-$C000;
  RegisterHotKey(Handle,_HotKey,0,vk_F2);   {取出用户设定的热键,把vk_F2变一下即可}
  doNotifyIconData('add');
end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  UnRegisterHotKey(handle,_HotKey);
end;end.

Answer 3

RegisterHotKey有个bool返回值，表示注册成功与失败，失败就是已经有人注册了，或者查看GetLastError.来获取失败原因。另外建议系统热键很珍贵，所以还是不要随意这么注册下去

Answer 4

不要使用全局钩子，使用raw input

Answer 5

谢谢kaikai_kk的解答，这样的话问题只剩下一个了，就是多开的问题了，如funxu所说，感觉第2个思路更麻烦，那还是用第一个思路吧，放心我最多只注册3个，再多了也没必要了，因为我的程序一般只开2个。
想请问下那个RegisterHotKey的bool返回值怎么看？
if ..... then （这里填什么呢？）
RegisterHotKey(Handle,_HotKey,0,vk_F3);

Answer 6

有返回值的
if not RegisterHotKey(...) then 失败

Answer 7

没怎么接触过游戏编程，刚才查了下只找到了C#的资料，调试通过了，但悲摧的是delphi下的虾米都没有

Answer 8

RegisterHotKey(Handle,_HotKey,0,vk_F3); 成功返回非0，否则返回0