当前位置:学Delphi网文档资料技术资料其他

delphi调用chm帮助文件实例

减小字体 增大字体 作者:佚名  来源:转载  发布时间:2011-02-18 22:45:49

delphi 中如何调用 CHM格式的帮助文件,包括一些其他细节的调用,谢谢!
---------------------------------------------------------------
用ShellExecute:
Uses ShellAPI
ShellExecute(handle, 'open', 'C:\wjiachun.chm',nil, nil, sw_ShowNormal);
---------------------------------------------------------------
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;

或者:
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;

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;

Tags:

作者:佚名
  • 好的评价 如果您觉得此文章好,就请您
      0%(0)
  • 差的评价 如果您觉得此文章差,就请您
      0%(0)

文章评论评论内容只代表网友观点,与本站立场无关!

   评论摘要(共 0 条,得分 0 分,平均 0 分) 查看完整评论

广告位置B