如何在软件的“帮助”菜单里点击调用“帮助文件”？？？？？？？？？？？？？(50分)

C

cqszczt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-15

• #1

我是Delphi的初学者。
为了方便阅读自己平时收集的一些文件资料，我用Delphi7做了个“资料阅读器”的
小软件，更为了这小软件功能还象个软件，我同时做了个CHM格式的帮助文件，但我
不知道该怎么样在这小软件里调用这个帮助文件！
哪个朋友愿意帮助我？
我没有多少积分了，但我愿意用50分感谢你！

 

Y

yczjs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-15

• #2

use ShellAPI;

ShellExecute(Handle,'open',pchar(ExtractFilePath(paramstr(0))+'help.chm'),nil,nil,SW_SHOWNORMAL)

 

大

大富翁WW

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-15

• #3

帮助文件也可这样调出
MessageDlgPosHelp('一个示例', mtInformation, [mbOK, mbHelp], 0, 200, 20, '文件名');

 

C

cqszczt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-15

• #4

1、大富翁WW啊，我的帮助文件可是CHM格式的哟！！！！！！！
2、yczjs，怎么不行呢？
<a>能不能说具体点呀，比如“use ShellAPI;”插入那里呀？
<b>能不能解释一下每段的意思和作用呀？我可是新手嘛！

 

大

大富翁WW

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-15

• #5

1. 哦, 它应该用在.hlp文件的
2. 比如:
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ShellAPI;
....
....

ShellExecute(0,'','C:/Documents and Settings/Administrator/桌面/一本葵花宝典.chm', 0, 0, 1);

 

B

boysunsight

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-26

• #6

procedure Tfrmmain.MenuItemHelpClick(Sender: TObject);
var
helpFile: string;
begin
helpFile:= maindir+'/help/'+'help.chm';
if not FileExists(helpFile) then
raise exception.Create('帮助文件找不到！！！');
ShellExecute(handle,'open',pchar(helpfile),'','',sw_normal);
end;
就是这样，很简单的。