delphi 中如何调用 CHM格式的帮助文件

hawkoffree 2003-08-21 06:17:48
delphi 中如何调用 CHM格式的帮助文件,包括一些其他细节的调用,谢谢!
...全文
24 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
DWGZ 2003-08-21
  • 打赏
  • 举报
回复
function HtmlHelp(hwd : integer;pszFile : String;uCommand :Integer;dwData :LongInt):integer; stdcall;external 'HHCtrl.ocx' name 'HtmlHelpA';

procedure TForm1.Button1Click(Sender: TObject);
begin
Htmlhelp(self.handle,'help\help.chm',0,0);
end;
lxpbuaa 2003-08-21
  • 打赏
  • 举报
回复
或者:
implementation

{$R *.dfm}

function HtmlHelpA(hwndCaller: THandle; pazFile: String;
uCommand, dwData: DWord): DWord; stdcall external 'hhctrl.ocx';


procedure TForm1.Button1Click(Sender: TObject);
begin
HtmlHelpA(Handle, Application.HelpFile, 0, 0);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.HelpFile := 'g:\NetShow.chm';
end;

————————————————————————————————————
宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。
————————————————————————————————————
lxpbuaa 2003-08-21
  • 打赏
  • 举报
回复
implementation

uses ShellAPI;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(0, 'open', PChar(Application.HelpFile), nil, nil, SW_SHOW);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.HelpFile := 'g:\NetShow.chm';
end;

————————————————————————————————————
宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。
————————————————————————————————————
pbsql 2003-08-21
  • 打赏
  • 举报
回复
Uses ShellAPI
ShellExecute(handle, 'open', 'C:\wjiachun.chm',nil, nil, sw_ShowNormal);
springm 2003-08-21
  • 打赏
  • 举报
回复
用winexec

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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