怎么实现在程序运行过程中的任何时候按F1键，就出现帮助？

Question

unit Unit1;
interface
uses
  Windows, Messages, shellapi,SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure MyProcedure(var Msg: TMsg; var Handled: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.MyProcedure(var Msg: TMsg; var Handled: Boolean);
 var
  FileName:Pchar;
 begin
   FileName:='c:\lzj.txt';//你的帮助文件aa.chm的路径
   if msg.message=WM_KEYDOWN then
      if msg.wParam=$70 then
       ShellExecute(0, 'open', FileName, nil, nil, SW_SHOW);
 end;
procedure TForm1.FormCreate(Sender: TObject);
begin
 application.OnMessage:=MyProcedure;
end;end.

Answer 1

如果当前焦点不在你的应用程序，则lizhenjia(暴雪) 的方法无法实现，同意楼上的说法！

Answer 2

我建议你没有焦点的时候不要再接收快捷键！因为f1是一个很通用的健，很多软件都要用它，比如windows本身也要用。所以最好把窗体的keypreview设为true然后在keyup事件中写
  if keyword=vk_f1 then showhelp;

Answer 3

if keyword=vk_f1 then showhelp;