在游戏中按热键的问题

Question

FORM.MENU不能设为空，可以用另一种方法，你把各个菜单项的VISIBLE属性设为FALSE就可以了

Answer 1

去superpage下一个叫wingod的控件非常省事；我做过一个和你类似的东西；

Answer 2

程序如下：
procedure TForm1.wmhotkey(var msg:Tmessage);
var
 i:integer;
begin
case msg.LParamHi of
 vk_F4:winexec('notepad.exe',sw_normal);
 vk_f9:begin
       for i:=0 to 3 do
        begin
        keybd_event(51, MapVirtualKey(51, 0), 0, 0);                //按下
        keybd_event(51, MapVirtualKey(51, 0), KEYEVENTF_KEYUP, 0);
        keybd_event(50, MapVirtualKey(50, 0), 0, 0);
        keybd_event(50, MapVirtualKey(50, 0), KEYEVENTF_KEYUP, 0);
        keybd_event(49, MapVirtualKey(49, 0), 0, 0);
        keybd_event(49, MapVirtualKey(49, 0), KEYEVENTF_KEYUP, 0);
        keybd_event(54, MapVirtualKey(54, 0), 0, 0);
        keybd_event(54, MapVirtualKey(54, 0), KEYEVENTF_KEYUP, 0);
        keybd_event(55, MapVirtualKey(55, 0), 0, 0);
        keybd_event(55,mapvirtualkey(55,0),keyeventf_keyup ,0);
        end;
    end;
 end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
thehotkey:=globaladdatom('hotkey')-$c000;
myhotkey:=globaladdatom('myhotkey')-$c000;
registerhotkey(handle,thehotkey,0,VK_F4);
registerhotkey(handle,myhotkey,0,vk_f9);
end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
unregisterhotkey(handle,thehotkey);
unregisterhotkey(handle,myhotkey);
end;

Answer 3

你去http://delphi.icm.edu.pl/把wingod控件下载下来，一看就知道了；不需要我罗嗦的