1.在主form中加入如下代码,以便按下F1时执行
//声明:
protected
helpid:integer;
procedure Helpshortcut(var message: TMessage);
message WM_HOTKEY;
//过程:
procedure Tformmain.Helpshortcut(var message: TMessage);
myhelp:string;
begin
myhelp:='hh '+'D:/Aa.chm'
Winexec(pchar(myhelp),SW_SHOW);
end;
2.在主form的create事件中加入如下代码,注册F1热键 :
Helpid:=GlobalAddAtom('hotkey');
RegisterHotKey(handle,HelpId,0,vk_F1);