用什么语句把用htmlhelp做的帮助文件连接到help菜单触发的onclick过程下！

Question

用什么语句把用htmlhelp做的帮助文件连接到help菜单触发的onclick过程下！

Answer 1

http://expert.csdn.net/Expert/topic/2180/2180148.xml?temp=.5184748uses ShellAPI;{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(0, 'open', PChar(Application.HelpFile), nil, nil, SW_SHOW);
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.HelpFile := 'g:\NetShow.chm';
end;或者：
implementation{$R *.dfm}function  HtmlHelpA(hwndCaller: THandle; pazFile: String;
  uCommand, dwData: DWord): DWord; stdcall external 'hhctrl.ocx';
procedure TForm1.Button1Click(Sender: TObject);
begin
  HtmlHelpA(Handle,  Application.HelpFile,  0,  0);
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.HelpFile := 'g:\NetShow.chm';
end;