%@help@% &Help ！！！散分喽！！

Question

请教各位大虾：
    怎样实现用Delphi调用chm 制作如同delphi的help一样的功能？？（每一个不同的地方按F1显示相应的help）

Answer 1

uses
  HTMLHelp_Decl;
procedure TForm1.Button1Click(Sender: TObject);
begin
 HtmlHelp( handle, 'C:\WINDOWS\Desktop\hlp\hlp.chm::/2.html',
    HH_DISPLAY_INDEX, DWORD_PTR(PChar('2.html')));
end;procedure TForm1.Button2Click(Sender: TObject);
begin
 HtmlHelp( handle, 'C:\WINDOWS\Desktop\hlp\hlp.chm::/1.html',
    HH_DISPLAY_INDEX, DWORD_PTR(PChar('1.html')));
end;