delphi 中如何调用 CHM格式的帮助文件,包括一些其他细节的调用,谢谢! --------------------------------------------------------------- 用winexec --------------------------------------------------------------- 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; <script src="/JS/baidu460_15.js"></script> |