如何调用chm后缀的自制的帮助文件?

golinjin 2003-08-30 11:04:31
我写了一个应用程序,现在制作了一个以.chm格式的帮助文件,想在单击‘帮助’
按钮后调用该文件,如何实现???
...全文
30 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
golinjin 2003-08-30
  • 打赏
  • 举报
回复
出错提示:[Error] UnitMain.pas(180): Undeclared identifier: 'ShellExecute'
hanzq 2003-08-30
  • 打赏
  • 举报
回复
ShellExecute(handle,'Open','help.chm',nil,Pchar(ExtractFilePath(Application.ExeName)),1);
xiaoxiao197821 2003-08-30
  • 打赏
  • 举报
回复
看错了 直接用shellexecute
helodd 2003-08-30
  • 打赏
  • 举报
回复
首先,在implementation里,作如下声明:

function HtmlHelpA(hwndCaller: THandle; pazFile: String;

uCommand, dwData: DWord): DWord; stdcall external 'hhctrl.ocx';

然后就可以进行使用,例如:

HtmlHelpA (handle, 'c\winnt\help\access.chm', 0, 0);
xiaoxiao197821 2003-08-30
  • 打赏
  • 举报
回复
Application.HelpFile := ExtractFileDir(paramstr(0))+'\商标管理帮助.hlp';
Application.HelpCommand(Help_Contents,0); { 显 示 帮 助 目 录}
golinjin 2003-08-30
  • 打赏
  • 举报
回复
多谢各位,只是分少了点
Dephiuser 2003-08-30
  • 打赏
  • 举报
回复
uses shellapi
begin
...
ShellExecute(handle,'Open','help.chm',nil,Pchar(ExtractFilePath(paramstr(0))),sw_show);
LinLinLin 2003-08-30
  • 打赏
  • 举报
回复
uses中包含ShellAPI
begin
Application.HelpFile := ExtractFilePath('Application.ExeName');
ShellExecute(0, 'open', PChar(Application.HelpFile+'Help.chm'), nil, nil, SW_SHOW);
end;

2,495

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧