请问如何在delphi中调用.chm帮助文件，要实现上下文关联，请给出教完整的代码，谢谢！

Question

请问如何在delphi中调用.chm帮助文件，要实现上下文关联，请给出教完整的代码，谢谢！

Answer 1

Function HtmlHelpA(hwnd:integer;lpHelpFile:string;   wCommand:integer;dwData:string) :integer;stdcall;External 'hhctrl.ocx';procedure DoHelp(Topic:string);
begin
  try
    HtmlHelpA(Handle, Application.HelpFile, 0 , Topic);
  except
    Application.MessageBox('该页面不存在...... ','操作提示',MB_OK+MB_ICONINFORMATION);
  end;
end;