如果在窗口中, 在对应的事件过程中就可以了.  但是要在窗口外的话用HOOK

解决方案 »

  1.   


      private
        procedure OnHotKey(var Message :TWMHotKey); Message WM_HotKey;
        { Private declarations }
      public
        { Public declarations }
      end;procedure Tmytest2.FormDestroy(Sender: TObject);
    begin
      UnregisterHotKey(handle,101);
    end;procedure Tmytest2.FormCreate(Sender: TObject);
    begin
      RegisterHotKey(Handle,101,0,VK_F10);
      RegisterHotKey(Handle,102,0,VK_F11);
    ...........
    end;procedure Tmytest2.OnHotKey(var Message: TWMHotKey);
    begin
      if Message.HotKey=101 then begin
    ................
      end;
    end;
      

  2.   

    I agree with the opinion upstairs quitely.