我想在任何時候按F8能掉出那個程序的窗口﹐怎么實現啊﹐謝謝了

解决方案 »

  1.   

    注册成热健,具体看我的这个帖子
    http://expert.csdn.net/Expert/topic/2094/2094919.xml?temp=.5873529
      

  2.   

    uses ShellApi;  private
        { Private declarations }
        procedure HotKeyHandler(var message: TMessage); message WM_HOTKEY;var
      Form1: TForm1;
      idF11, idF12: Integer;procedure TForm1.HotKeyHandler(var message: TMessage);
    begin
      case message.LParamHi of
        VK_F11: ShowMessage('F11');
        VK_F12: ShowMessage('F12');
      end;
    end;procedure TForm1.FormCreate(Sender: TObject);
    begin
      idF11 := GlobalAddAtom('hotkey2');
      idF12 := GlobalAddAtom('hotkey3');
      RegisterHotKey(handle, idF11, 0, VK_F11);
      RegisterHotKey(handle, idF12, 0, VK_F12);
    end;procedure TForm1.FormDestroy(Sender: TObject);
    begin
      UnRegisterHotKey(handle, idF11);
      UnRegisterHotKey(handle, idF12);
    end;