//HTMLを開く場合
procedure TForm1.Button1Click(Sender: TObject);
Var c, d: String;
begin
C:= '';
D:= 'a:\hhwapi.htm'; //フルパス必要
HtmlHelp(Handle, Pchar(C), 0, Longint(PChar(D)));
end;
//ヘルプコンパイラで作ったCHMファイルを開く場合
procedure TForm1.Button2Click(Sender: TObject);
Var c, d: String;
begin
C:= 'C:\temp\essai.chm';
D:= 'amovie_overview.htm';
HtmlHelp(Handle, Pchar(C), 0, Longint(PChar(D)));
end;
|