win2k下触发F1的问题(100分)

在win2K的环境下如何写delphi程序触发F1自动调用*.chm的帮助。就向自动调用*.hlp的那样。<br>本人试了几个demo自带的例子一开始可以用，但重新再次编译后按F1就失效了。<br>急，急,急请那位大侠帮忙指点一下。

不会吧，你是否是在FORM的keydown或keypress事件里利用F1键调用*.chm,将form的<br>keypreview设为true,并在菜单project-Options下打开的对话框的application页面<br>中设置好了该help file,如果是的话，那就应该不至于失效的。

to HunterTeam:<br>&nbsp; 在菜单project-Options下打开的对话框的application页面<br>中设置help file只认*.hlp的，我补充一点我的delphi版本是6.0的，<br>我不知道跟这个是否有关。

project-Options下不设Help file也是可以的，你调用*.chm的语句是什么，在哪调用？

to HunterTeam:<br>&nbsp; 有Email吗？我给你直接发Demo好了。并且我加你为QQ好友了。

Hunteam@21cn.com,我的QQ暂不能用。

to HunterTeam:<br>&nbsp; 邮件已经发出，请查收。

to HunterTeam:<br>&nbsp; &nbsp;你的邮箱发不出去，都打回来了。<br>&nbsp;<br>

procedure TMainForm.FormKeyUp(Sender: TObject; var Key: Word;<br>&nbsp; Shift: TShiftState);<br>begin<br>if key=vk_F1 then<br>&nbsp; &nbsp; HelpMenuItem.onclick(self);<br>end;<br><br><br>procedure TMainForm.HelpMenuItemClick(Sender: TObject);<br>begin<br>if fileExists(ExtractFilePath(Application.ExeName)+'你的.chm') then<br>&nbsp; &nbsp;ShellExecute(0,<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;nil,<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;pchar(ExtractFilePath(Application.ExeName)+你的.chm'),<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;nil,<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;nil,<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;SW_SHOWNORMAL)<br>&nbsp; &nbsp;else &nbsp;MessageDlg('帮助文件找不到！',mtWarning,[mbok],0);<br>end;

多人接受答案了。