csdn_文档中心_如何制作和使用帮助文件.htm
来自「csdn10年中间经典帖子」· HTM 代码 · 共 513 行 · 第 1/3 页
HTM
513 行
Declare Function WinHelp Lib "user32" Alias
"WinHelpA"<BR> (ByVal hwnd
As Long, <BR> ByVal
lpHelpFile As String, <BR>
ByVal wCommand As Long, <BR>
ByVal dwData As Long) As Long ' <BR><BR> 必 须 同 一
行; 为WIN95,NT<BR> ' Declare Function WinHelp Lib "User"
(<BR> ByVal hwnd As
Integer, <BR> ByVal
lpHelpFile As String, <BR>
ByVal wCommand As Integer, <BR>
dwData As Any) As Integer ' 必 须 同 一 行; 为WIN3.X<BR><BR>
（2） 窗 体 文 件<BR> Private Sub Form_Load()<BR>
App.HelpFile =
"d:\winword\dxchlp.hlp"<BR> End Sub<BR><BR>
Private Sub mnuContents_Click()<BR>
i% = WinHelp(Form1.hwnd, App.HelpFile, HELP_CONTENTS,
0)<BR> End Sub<BR><BR> Private Sub
mnuKeySearch_Click()<BR> i% =
WinHelp(Form1.hwnd, App.HelpFile, HELP_KEY, 0)<BR> End
Sub<BR><BR>DELPHI<BR> 进 入DELPHI， 选File/New Project， 出 现 一 空 白
窗 体Form1, 加 一 个 菜 单 控 制Mainmenu1 到Form1， 双 击Mainmenu1， 设 置 其 一 级 菜
单， 有 二 项：（Caption 分 别 为：）File ，Help， 而File 的 下 一 级 菜 单Exit，Help 的 下
一 级 菜 单 为Contents， KeySearch， About， 对 应 的Name 属 性 分 别 为:
File1，Help1，Exit1，Contents1，KeySearch1，About1。 <BR><BR>
因 为 要 用 到About 关 于 窗 口， 所 以 加 入 一 新 窗 体， 其Name 属 性 为AboutBox， 再 加 入
一BitBtn 按 钮OKButton 到AboutBox 窗 体，OKButton 的Caption 属 性 为OK，Glyph 属
性 为 一 确 定 图 片 或 干 脆 为 空。 <BR><BR> 假 定 帮 助 文 件
是D:\WINWORD\DXCHLP.HLP。 <BR><BR> 程 序 代 码 如 下：
<BR> program Delhelp;<BR> uses
Forms,<BR> Unihelp in 'UNIHELP.PAS'
{Form1},<BR> Uniabout in 'UNIABOUT.PAS'
{AboutBox};<BR><BR> {$R *.RES}<BR>
begin<BR> Application.CreateForm(TForm1,
Form1);<BR>
{Application.CreateForm(TAboutBox, AboutBox);}<BR>
{注意注掉这一行，因为AboutBox是在运行时产生的,详见代码}<BR>
Application.Run;<BR> end.<BR><BR>
unit Unihelp;<BR> interface<BR>
uses SysUtils, WinTypes, WinProcs, Messages, Classes,
Graphics, Controls,Forms, Dialogs, Menus,uniAbout;<BR><BR>
type<BR> TForm1 = class(TForm)<BR>
MainMenu1: TMainMenu;<BR>
File1: TMenuItem;<BR> Help1:
TMenuItem;<BR> contents1:
TMenuItem;<BR> KeySearch1:
TMenuItem;<BR> About1:
TMenuItem;<BR> Exit1:
TMenuItem;<BR> procedure
Exit1Click(Sender: TObject);<BR>
procedure contents1Click(Sender: TObject);<BR>
procedure KeySearch1Click(Sender: TObject);<BR>
procedure About1Click(Sender: TObject);<BR>
private<BR> { Private declarations
}<BR> public<BR> { Public
declarations }<BR> end;<BR><BR>
var<BR> Form1: TForm1;<BR><BR>
implementation<BR> {$R *.DFM}<BR><BR>
procedure TForm1.Exit1Click(Sender: TObject);<BR>
begin<BR> Close;<BR>
end;<BR><BR> procedure TForm1.contents1Click(Sender:
TObject);<BR> begin<BR>
Application.HelpFile := 'd:\winword\dxchlp.hlp';<BR>
Application.HelpCommand(Help_Contents,0); { 显 示 帮 助 目
录}<BR> end;<BR><BR> procedure
TForm1.KeySearch1Click(Sender: TObject);<BR>
begin<BR> Application.HelpFile :=
'd:\winword\dxchlp.hlp';<BR>
Application.HelpCommand(Help_PartialKey,0); { 显 示 关 键 字 搜
索}<BR> end;<BR><BR> procedure
TForm1.About1Click(Sender: TObject);<BR> var<BR>
myAbout:TAboutbox;<BR>
begin<BR>
myAbout:=TAboutbox.Create(Self);{myAbout 是 类TAboutbox 的 一 个 实
例}<BR> myAbout.ShowModal; { 显 示“ 关 于”}<BR>
end;<BR><BR> end.<BR><BR> unit
Uniabout;<BR><BR> interface<BR>
uses WinTypes, WinProcs, Classes, Graphics, Forms, Controls,
StdCtrls,Buttons, ExtCtrls;<BR><BR> type<BR>
TAboutBox = class(TForm)<BR>
OKButton: TBitBtn;<BR> procedure
OKButtonClick(Sender: TObject);<BR> private<BR>
{ Private declarations }<BR>
public<BR> { Public declarations
}<BR> end;<BR><BR> var<BR>
AboutBox: TAboutBox;<BR><BR>
implementation<BR> {$R *.DFM}<BR><BR>
procedure TAboutBox.OKButtonClick(Sender: TObject);<BR>
begin<BR> Close;<BR>
end;<BR><BR> end.<BR><BR> 以 上 可 用 调 用 动 态
联 结 库 的 方 法，DELPHI 中 公 用 动 态 联 结 库， 常 数 等 用 不 着 声 明， 可 拿 来 就 用， 在 上
面 的 窗 体 中 再 加 入 二 个 按 钮，Content，Search， 输 入 以 下 代 码： <BR><BR>
procedure TForm1.ContentClick(Sender: TObject);<BR>
begin<BR>
WINHELP(form1.ClientHandle,<BR>
'd:\winword\dxchlp.hlp',<BR>
HELP_CONTENTS,0);<BR> end;<BR><BR>
procedure TForm1.SearchClick(Sender: TObject);<BR>
begin<BR>
WINHELP(form1.ClientHandle,<BR>
'd:\winword\dxchlp.hlp',<BR>
HELP_KEY,0);<BR>
end;<BR><BR>VFP<BR> VFP 中 有 内 建 的 菜 单 帮 助 命 令， 另 要 将 帮
助 文 件 设 到 自 己 的 帮 助 文 件 处， 语 句 是:SET HELP TO
Drive:\Path\helpfile.hlp， 在 菜 单 位 中 显 示 帮 助 目 录 的 菜 单 项# 是_mst_help，
显 示 帮 助 中 关 键 字 搜 索 的 菜 单 项# 是_mst_hpsch， 现 举 一 例： 进 入VFP， 选“ 文 件”/“
新 建”/“ 项 目”， 新 建 一 主 程 序main.prg， 输 入 以 下 代 码： <BR><BR>
SET DEFAULT TO D:\WINWORD\VFP<BR> SET HELP TO
D:\WINWORD\DXCHLP.HLP<BR> PUSH MENU _MSYSMENU<BR>
SET SYSMENU OFF<BR> DO
MainMenu.MPR<BR><BR> 新 建 一 主 程 序 主 菜 单MainMenu， 一 级 菜 单
有File 和Help， 再 设File 的 子 菜 单Exit，Help 的 子 菜 单Contents
和Search，Contents 的 菜 单 项# 是_mst_help， 而Search 的 菜 单 项# 是_mst_
hpsch，Exit 过 程 输 入 以 下 代 码： <BR><BR> POP MENU _MSYSMENU
TO MASTER<BR> CLEAR EVENTS<BR> SET SYSMENU
TO DEFAULT<BR><BR> 以 上 程 序 在P133 兼 容 机， 中 文WORD6.0， 中
文WINDOWS95， 中 文Visual Foxpro3.0，Visual Basic4.0，Delphi1.0 上 运 行 通
过。<BR><BR><BR><BR>Copyright &copy; 上海聚声计算机系统工程有限责任公司 1999-2000,
All Rights Reserved
<BR><BR><BR><BR><BR></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE><BR>
<TABLE align=center bgColor=#006699 border=0 cellPadding=0 cellSpacing=0
width=770>
<TBODY>
<TR bgColor=#006699>
<TD align=middle bgColor=#006699 id=white><FONT
color=#ffffff>对该文的评论</FONT></TD>
<TD align=middle>
<SCRIPT src="CSDN_文档中心_如何制作和使用帮助文件.files/readnum.htm"></SCRIPT>
</TD></TR></TBODY></TABLE><BR>
<DIV align=center>
<TABLE align=center bgColor=#cccccc border=0 cellPadding=2 cellSpacing=1
width=770>
<TBODY>
<TR>
<TH bgColor=#006699 id=white><FONT
color=#ffffff>我要评论</FONT></TH></TR></TBODY></TABLE></DIV>
<DIV align=center>
<TABLE border=0 width=770>
<TBODY>
<TR>
<TD>你没有登陆，无法发表评论。 请先<A
href="http://www.csdn.net/member/login.asp?from=/Develop/read_article.asp?id=516">登陆</A>
<A
href="http://www.csdn.net/expert/zc.asp">我要注册</A><BR></TD></TR></TBODY></TABLE></DIV><BR>
<HR noShade SIZE=1 width=770>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=500>
<TBODY>
<TR align=middle>
<TD height=10 vAlign=bottom><A
href="http://www.csdn.net/intro/intro.asp?id=2">网站简介</A> - <A
href="http://www.csdn.net/intro/intro.asp?id=5">广告服务</A> - <A
href="http://www.csdn.net/map/map.shtm">网站地图</A> - <A
href="http://www.csdn.net/help/help.asp">帮助信息</A> - <A
href="http://www.csdn.net/intro/intro.asp?id=2">联系方式</A> - <A
href="http://www.csdn.net/english">English</A> </TD>
<TD align=middle rowSpan=3><A
href="http://www.hd315.gov.cn/beian/view.asp?bianhao=010202001032100010"><IMG
border=0 height=48 src="CSDN_文档中心_如何制作和使用帮助文件.files/biaoshi.gif"
width=40></A></TD></TR>
<TR align=middle>
<TD vAlign=top>百联美达美公司 版权所有 京ICP证020026号</TD></TR>
<TR align=middle>
<TD vAlign=top><FONT face=Verdana>Copyright © CSDN.net, Inc. All rights
reserved</FONT></TD></TR>
<TR>
<TD height=15></TD>
<TD></TD></TR></TBODY></TABLE></DIV>
<DIV></DIV><!--内容结束//--><!--结束//--></BODY></HTML>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?