真的没有人知道 hha.dll ， hhc.exe 的调用函数吗？一个关于帮助文件制作的问题 (50分)

mt · 2002-12-09

我在不少帮助文件制作软件中均带有[hha.dll , itcc.dll , hhc.exe] 想向大家求教如何利用以上文件制作帮助软件，最好有详细的api函数调用 方法或列表？

816 · 2002-12-09

你直接做成HTML的不就结了。

mt · 2002-12-09

我指的是我要编一个制作帮助文件的软件

yangxiao_jiang · 2002-12-09

我有html help workshop的软件和使用手册，可以编译成htm的格式 其他的我也有使用手册 给我个地址，我传上去 yangxiao_jiang@download-city.com

816 · 2002-12-09

www.playicq.com

mt · 2002-12-09

谢谢你我的 email: mt725@163.com

zjfeng · 2002-12-11

帮助制作只用hha.dll和hhc.exe就可以，用命令行hhc hhp文件  就可以了

mt · 2002-12-13

zjfeng你好 谢谢您的帮助，可不可以说具体一些！

watter · 2002-12-13

我原来做过一个将从网上收集的html文件合成为一个chm文件的程序，自己用了一下，感觉还可以 你可以试一下。部分代码如下： procedure TMainForm.CreateListFile; //建立目录文件 var   I:integer; Begin ListFile:=CurrentDir + 'ListFile.html'; AssignFile(FList, ListFile); Rewrite(FList); Writeln(FList, '<html>'); Writeln(FList, '<head>'); Writeln(FList, '<title>目录</title>'); Writeln(FList, '<meta http-equiv="Content-Type" content="text/html; charset=gb2312">'); Writeln(FList, '</head>'); Writeln(FList, ''); Writeln(FList, '<body bgcolor="#FFFFFF">'); Writeln(FList, '<h1 align="center">目录</h1>'); Writeln(FList, '<hr width="100%" color="red" noshade>'); Writeln(FList, ''); for I:=0 to FileList.Items.Count-1 do Writeln(FList, '<a href="file:///' + FileList.Items.Strings+'">'+ FindTitle(FileList.Items.Strings)+'</a> '); Writeln(FList, ''); Writeln(FList, '<hr width="100%" color="blue" noshade>'); Writeln(FList, '</body>'); Writeln(FList, '</html>'); CloseFile(FList); end; procedure TMainForm.CreateVersionFile; //建立版权文件 begin VersionFile:=CurrentDir + 'VerSionFile.html'; AssignFile(FVerSion, VersionFile); Rewrite(FVerSion); Writeln(FVerSion, '<html>'); Writeln(FVerSion, '<head>'); Writeln(FVerSion, '<title>版权页面</title>'); Writeln(FVerSion, '<meta http-equiv="Content-Type" content="text/html; charset=gb2312">'); Writeln(FVerSion, '</head>'); Writeln(FVerSion, ''); Writeln(FVerSion, '<body bgcolor="#000000" text="#FFFF99">'); Writeln(FVerSion, '<h1 align="center">CHM文件制作系统 </h1>'); Writeln(FVerSion, '<hr>'); Writeln(FVerSion, '作者：汪涛'); Writeln(FVerSion, 'E-mail: <a href="mailto:waterman@sina.com">waterman@sina.com</a>'); Writeln(FVerSion, '</body>'); Writeln(FVerSion, '</html>'); CloseFile(FVerSion); end; procedure TMainForm.Createhhp;  //产生项目文件 var   I:integer; begin AssignFile(Fproject, hhpFile); Rewrite(Fproject); writeln(Fproject, '[OPTIONS]'); writeln(Fproject, 'Compatibility=1.1'); writeln(Fproject, 'Compiled file=' + ChmFile); writeln(Fproject, 'Contents file=' + hhcFile); writeln(Fproject, 'Default Window=' + WindowName); writeln(Fproject, 'Default topic='+ ListFile); writeln(Fproject, 'Display compile progress=no'); writeln(Fproject, 'Full-text search=Yes'); writeln(Fproject, 'Language=0x804 中文(中国)'); writeln(Fproject, ''); writeln(Fproject, ''); writeln(Fproject, '[WINDOWS]'); writeln(Fproject, WindowName + '="'+ WindowTitle +'","' + hhcFile + '",,,,,,,,0x2520,,0x307e,,,,,,,,'); writeln(Fproject, ''); writeln(Fproject, ''); writeln(Fproject, '[FILES]');   For I:=0 to FileList.Items.Count-1 do writeln(Fproject, FileList.Items.Strings); writeln(Fproject, ListFile); writeln(Fproject, VersionFile); closefile(Fproject); end; procedure TMainForm.Createhhc; //产生目录文件 var   I:integer; begin AssignFile(Fcontent, hhcFile); Rewrite(Fcontent); writeln(Fcontent, '<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">'); writeln(Fcontent, '<HTML>'); writeln(Fcontent, '<HEAD>'); writeln(Fcontent, '<meta name="GENERATOR" content="Microsoft&reg; HTML Help Workshop 4.1">'); writeln(Fcontent, ''); writeln(Fcontent, '</HEAD><BODY>'); writeln(Fcontent, '<OBJECT type="text/site properties">'); writeln(Fcontent, ' <param name="Window Styles" value="0x1222">'); writeln(Fcontent, ' <param name="ImageType" value="Folder">'); writeln(Fcontent, '</OBJECT>'); writeln(Fcontent, '<UL>'); writeln(Fcontent, ' <LI> <OBJECT type="text/sitemap">'); writeln(Fcontent, ' <param name="Name" value="目录">'); writeln(Fcontent, ' <param name="Local" value="'+listFile+'">'); writeln(Fcontent, ' <param name="ImageNumber" value="1">'); writeln(Fcontent, ' </OBJECT>'); writeln(Fcontent, ' <UL>'); for I:=0 to FileList.Items.count-1 do begin writeln(Fcontent, ' <LI> <OBJECT type="text/sitemap">'); writeln(Fcontent, ' <param name="Name" value="'+ FindTitle(FileList.Items.Strings) + '">'); writeln(Fcontent, ' <param name="Local" value="'+ ExtractFileName(FileList.Items.Strings) + '">'); writeln(Fcontent, ' </OBJECT>'); end; writeln(Fcontent, ' <LI> <OBJECT type="text/sitemap">'); writeln(Fcontent, ' <param name="Name" value="Author">'); writeln(Fcontent, ' <param name="Local" value="'+ VersionFile + '">'); writeln(Fcontent, ' </OBJECT>'); writeln(Fcontent, ' </UL>'); writeln(Fcontent, '</UL>'); writeln(Fcontent, '</BODY></HTML>'); closeFile(Fcontent); end; procedure TMainForm.BtnCompileClick(Sender: TObject);  //编译文件 var    StartupInfo:TStartupInfo;    ProcessInfo:TProcessInformation; begin if FileList.Items.count=0 then  begin                                 Showmessage('请添加要编译的文件');                                 exit;                                 end; if TextFileName.text<>''  then chmFile:=TextFileName.Text                           else begin                                Showmessage('请输入您希望编译后生成的文件名');                                exit;                                end; if TextWindowTitle.Text<>''  then begin                                   WindowTitle:=TextWindowTitle.Text;                                   WindowName:=TextWindowTitle.Text;                                   end                              else begin                                   Showmessage('请输入窗口标题');                                   exit;                                   end; hhpFile:=ChangeFileExt(chmFile, '.hhp'); hhcFile:=ChangeFileExt(chmFile, '.hhc'); TempHhpFile:=TempDir + ExtractFileName(hhpFile); TempChmFile:=TempDir + ExtractFileName(chmFile); BtnCompile.Enabled:=false; BtnClose.Enabled:=false; ImageActive.Visible:=True; Label4.Visible:=True; Label4.Caption:='正在编译…'; CreateListFile;    //建立目录页面 CreateVersionFile; //建立版权页面 Createhhp;         //建立项目文件 Createhhc;         //建立目录文件 MkDir(TempDir);                             //在C根目录下建立新的临时子目录 RenameFile(hhpfile, TempHhpFile);           //建立临时项目文件 ShellExec('open','hhc.exe',Pchar(temphhpfile),Pchar(currentdir),0,true); if FileExists(hhpFile) then DeleteFile(hhpFile); RenameFile(TempHhpFile, hhpFile);           //恢复项目文件 RmDir(TempDir);                             //删除临时目录 if KeepTempFile.Checked=False then begin if FileExists(hhpFile) then DeleteFile(hhpFile);            if FileExists(hhcFile) then DeleteFile(hhcFile);            if FileExists(ListFile) then DeleteFile(ListFile);            if FileExists(VersionFile) then DeleteFile(VersionFile);      end;     //删除临时文件：项目文件、目录文件、目录文件、版权文件 ImageActive.Visible:=False; Label4.Caption:='编译完成'; if Display.Checked=True then    ShellExecute(handle, nil, Pchar(chmFile), nil, nil, 1);     //显示最终文件 BtnCompile.Enabled:=true; BtnClose.Enabled:=True; end; function tMainForm.WinExecAndWait32(FileName:String; Visibility :integer)word;       {执行一个外部程序并等待其结束} var zAppName:array[0..512] of char; zCurDir:array[0..255] of char; WorkDir:String; StartupInfo:TStartupInfo; ProcessInfo:TProcessInformation; begin StrPCopy(zAppName,FileName); GetDir(0,WorkDir); StrPCopy(zCurDir,WorkDir); FillChar(StartupInfo,Sizeof(StartupInfo),#0); StartupInfo.cb := Sizeof(StartupInfo); StartupInfo.dwFlags := STARTF_USESHOWWINDOW; StartupInfo.wShowWindow := Visibility; if not CreateProcess(nil,                      zAppName, { pointer to command line string }                      nil, { pointer to process security attributes }                      nil, { pointer to thread security attributes }                      false, { handle inheritance flag }                      CREATE_NEW_CONSOLE or { creation flags } NORMAL_PRIORITY_CLASS,                      nil, { pointer to new environment block }                      nil, { pointer to current directory name }                      StartupInfo, { pointer to STARTUPINFO }                      ProcessInfo) then Result := 1 { pointer to PROCESS_INF } else begin      while WaitforSingleObject(ProcessInfo.hProcess,10)=WAIT_TIMEOUT      do Application.ProcessMessages;      GetExitCodeProcess(ProcessInfo.hProcess,Result);      end; end;

腾龙 · 2002-12-15

watter： 你的不完全呀，还有：ShellExec是哪儿来的？我找了API中没有呀，如果是ShellExecute那参数又不对呀？

5415 · 2002-12-15

kkyy · 2002-12-17

uses shellapi

腾龙 · 2002-12-17

我试了，不过SHELLAPI里只有ShellExecute。没有ShellExec

kkyy · 2002-12-17

那是他写了自己的函数，你用原来的就可以了

腾龙 · 2002-12-17

可是参数不对呀。您能告诉我用SHELLEXEC应该怎么写？

kkyy · 2002-12-17

把光标放到ShellExecute上，按F1

腾龙 · 2002-12-17

老大呀，我看了ShellExecute的说明，我也知道他怎么用，可是ShellExec的参数和ShellExecute的参数完全不一样呀。

mt · 2002-12-17

同志们跑题啦，给分的是我，我想知道hha.dll,hhc.exe的 调用函数如编译、解译、以及捉标题等等！

mt · 2002-12-23

接受答案了.

真的没有人知道 hha.dll ， hhc.exe 的调用函数吗？一个关于帮助文件制作的问题 (50分)

mt

Unregistered / Unconfirmed

816

Unregistered / Unconfirmed

mt

Unregistered / Unconfirmed

yangxiao_jiang

Unregistered / Unconfirmed

816

Unregistered / Unconfirmed

mt

Unregistered / Unconfirmed

zjfeng

Unregistered / Unconfirmed

mt

Unregistered / Unconfirmed

watter

Unregistered / Unconfirmed

腾龙

Unregistered / Unconfirmed

5415

Unregistered / Unconfirmed

kkyy

Unregistered / Unconfirmed

腾龙

Unregistered / Unconfirmed

kkyy

Unregistered / Unconfirmed

腾龙

Unregistered / Unconfirmed

kkyy

Unregistered / Unconfirmed

腾龙

Unregistered / Unconfirmed

mt

Unregistered / Unconfirmed

mt

Unregistered / Unconfirmed

Similar threads