i%=WinHelp(Form1.hwnd,App.HelpFile,HELP_KEY,0) 

EndSub 

DELPHI 

----進入DELPHI，選File/NewProject，出現一空白窗體Form1,加一個菜單控制Mainmenu1到Form1，雙擊
Mainmenu1，設置其一級菜單，有二項：（Caption分別為：）File，Help，而File的下一級菜單Exit，
Help的下一級菜單為Contents，KeySearch，About，對應的Name屬性分別為:File1，Help1，Exit1，
Contents1，KeySearch1，About1。 


----因為要用到About關于窗口，所以加入一新窗體，其Name屬性為AboutBox，再加入一BitBtn按鈕
OKButton到AboutBox窗體，OKButton的Caption屬性為OK，Glyph屬性為一確定圖片或干脆為空。 

----假定幫助文件是D:\WINWORD\DXCHLP.HLP。 

----程序代碼如下： 

programDelhelp; 

uses 

Forms, 

Unihelpin'UNIHELP.PAS'{Form1}, 

Uniaboutin'UNIABOUT.PAS'{AboutBox}; 

{$R*.RES} 

begin 

Application.CreateForm(TForm1,Form1); 

{Application.CreateForm(TAboutBox,AboutBox);} 

{注意注掉這一行，因為AboutBox是在運行時產生的,詳見代碼} 

Application.Run; 

end. 

unitUnihelp; 

interface 

uses 

SysUtils,WinTypes,WinProcs,Messages,Classes,Graphics,Controls, 

Forms,Dialogs,Menus, 

uniAbout; 

type 

TForm1=class(TForm) 

MainMenu1:TMainMenu; 

File1:TMenuItem; 

Help1:TMenuItem; 

contents1:TMenuItem; 

KeySearch1:TMenuItem; 

About1:TMenuItem; 

Exit1:TMenuItem; 

procedureExit1Click(Sender:TObject); 

procedurecontents1Click(Sender:TObject); 

procedureKeySearch1Click(Sender:TObject); 

procedureAbout1Click(Sender:TObject); 

private 

{Privatedeclarations} 

public 

{Publicdeclarations} 

end; 

var 

Form1:TForm1; 

implementation 

{$R*.DFM} 

procedureTForm1.Exit1Click(Sender:TObject); 

begin 

Close; 

end; 

procedureTForm1.contents1Click(Sender:TObject); 

begin 

Application.HelpFile:='d:\winword\dxchlp.hlp'; 

Application.HelpCommand(Help_Contents,0);{顯示幫助目錄} 

end; 

procedureTForm1.KeySearch1Click(Sender:TObject); 

begin 

Application.HelpFile:='d:\winword\dxchlp.hlp'; 

Application.HelpCommand(Help_PartialKey,0);{顯示關鍵字搜索} 

　

end; 

procedureTForm1.About1Click(Sender:TObject); 

var 

myAbout:TAboutbox; 

begin 

myAbout:=TAboutbox.Create(Self);{myAbout是類TAboutbox的一個實例} 

myAbout.ShowModal;{顯示"關于"} 

end; 

end. 

unitUniabout; 

interface 

usesWinTypes,WinProcs,Classes,Graphics,Forms,Controls,StdCtrls, 

Buttons,ExtCtrls; 

type 

TAboutBox=class(TForm) 

OKButton:TBitBtn; 

procedureOKButtonClick(Sender:TObject); 

private 

{Privatedeclarations} 

public 

{Publicdeclarations} 

end; 

var 

AboutBox:TAboutBox; 

implementation 

{$R*.DFM} 

procedureTAboutBox.OKButtonClick(Sender:TObject); 

begin 

Close; 

end; 

end. 

----以上可用調用動態聯結庫的方法，DELPHI中公用動態聯結庫，常數等用不著聲明，可拿來就用，在上面
的窗體中再加入二個按鈕，Content，Search，輸入以下代碼： 


procedureTForm1.ContentClick(Sender:TObject); 

begin 

WINHELP(form1.ClientHandle,'d:\winword\dxchlp.hlp',HELP_CONTENTS,0); 

end; 

procedureTForm1.SearchClick(Sender:TObject); 

begin 

WINHELP(form1.ClientHandle,'d:\winword\dxchlp.hlp',HELP_KEY,0); 

end; 

VFP 

----VFP中有內建的菜單幫助命令，另要將幫助文件設到自己的幫助文件處，語句
是:SETHELPTODrive:\Path\helpfile.hlp，在菜單位中顯示幫助目錄的菜單項#是_mst_help，顯示幫助中
關鍵字搜索的菜單項#是_mst_hpsch，現舉一例：進入VFP，選"文件"/"新建"/"項目"，新建一主程序
main.prg，輸入以下代碼： 

SETDEFAULTTOD:\WINWORD\VFP 

SETHELPTOD:\WINWORD\DXCHLP.HLP 

PUSHMENU_MSYSMENU 

SETSYSMENUOFF 

DOMainMenu.MPR 

----新建一主程序主菜單MainMenu，一級菜單有File和Help，再設File的子菜單Exit，Help的子菜單
Contents和Search，Contents的菜單項#是_mst_help，而Search的菜單項#是_mst_hpsch，Exit過程輸入
以下代碼： 

POPMENU_MSYSMENUTOMASTER 

CLEAREVENTS 

SETSYSMENUTODEFAULT 

----以上程序在P133兼容機，中文WORD6.0，中文WINDOWS95，中文VisualFoxpro3.0，VisualBasic4.0，
Delphi1.0上運行通過。 
 
 


--------------------------------------------------------------------------------