这样调用它们。
procedure TfrmMain.miHelpClick(Sender: TObject);
var
pchar;
begin
if FileExists(ExtractFilePath(Application.Exename)+'HELP.chm') then
begin
p:=pchar(ExtractFilePath(Application.Exename)+'HELP.chm');
ShellExecute(0, nil, p, nil, nil, SW_NORMAL);
end
else
begin
p:=pchar(ExtractFilePath(Application.Exename)+'heremed3.5帮助文件/hereinfoIndex.HTM');
ShellExecute(0, nil, p, nil, nil, SW_NORMAL);
end;
end;