各位大侠,谁能给我一个使用Html workshop制作chm的实例。(100分)

  • 主题发起人 主题发起人 天与地
  • 开始时间 开始时间
给你们发了,注意查收,我在delphi5和win98下使用没有问题!
 
to akaiwei,我的EM是doll-paul@263.net,忘记写了~~
 
也给我一份:
hhj_line@netease.com
 
今天用了用Quick CHM V1.60确实很方便,很容易使用。
但是,要是能把word文件也能弄进去就好了。
 
to akaiwei:
我直接运行你的.exe没有问题,按F1可以出现帮助,
我在officeXP、win2000的环境下,打开你的工程文件,
编译可以通过,但再按F1就没有反映了。
还有一种可能,是不是我编译的时候设置有问题?哪位大侠有类似情况?望指点。
 
procedure TConfigForm.mnuHelpFileClick(Sender: TObject);
//帮助菜单项
var
strPgmPath : string;
begin
if (FindWindow(nil,'帮助') = 0 ) then
//防止重复调用
begin
strPgmPath := ExtractFilePath(Application.ExeName);
//获得程序路径
if strPgmPath[Length(strPgmPath)]='/'
then
strPgmPath := strPgmPath + 'help.chm' //帮助文件路径
else
strPgmPath := strPgmPath + '/help.chm';
if FileExists(strPgmPath) then
ShellExecute(Application.Handle,nil,PChar(strPgmPath),nil,nil,SW_NORMAL)
else
Application.MessageBox('帮助文件不存在!','提示',MB_OK or MB_ICONWARNING);
end;
end;
 
多人接受答案了。
 
后退
顶部