原创: 自己收集整理的 DELPHI 中控制与使用HMTL帮助文件的单元代码。

作者: 陆岛工作室

在程序里加帮助文件，是常用的方法，我一直使用以下这个单元，不过 DELPHI2007好像对HTML帮助文件的支持有所改善。但没试过，因为自己整理使用的这个单元一直很好用。所以常得有用（对使用DELPH的朋友）。所以贴出来了。

主要有以下几个函数，

//取帮助文件名
function HelpFileName: String;
//根据 ContextId 调用帮助
function ShowHelpContext(ContextId: DWord): Integer;
//根据检索字符调用帮助
function ShowHelpTopic(Topic: String): Integer;
//显示主帮助窗口
function ShowHelpWindow: Integer;
//显示主帮助窗口的索引栏
function ShowHelpIndex: Integer;
//显示主帮助窗口的搜索栏
function ShowHelpSearch: Integer;
//设置主帮助文件名
procedure SetHelpFileName(FileName: String);

例如在主程序的菜单-->帮助中的 OnClick 事件里添加以下代码:

procedure miHelpClick(Sender: TObject);
begin
ShowHelpWindow; //显示主帮助窗口
end;

或者在相关的控件里的帮助事件中加入

ShowHelpContext(10992); //10992 是该控件的帮助ID, 可以为任意自己定义的ID.

或

ShowHelpTopic('使用说明'); //'使用说明'是该控件的帮助索引, 可以为任意自己定义的字符.

代码源文件如下：

{*******************************************************************************

XOtecExpress Visual Component Library [陆岛工作室]

By: PengJunLi Build: 2008-05

E-mail: iinsnian@126.com XOtec@vip.QQ.com QQ:442801172

*******************************************************************************}

unit xtHTMLHelp;

interface

(*$HPPEMIT ''*)

(*$HPPEMIT '#include "htmlhelp.h"'*)

(*$HPPEMIT ''*)

(*$HPPEMIT 'typedef struct tagHH_LAST_ERROR'*)

(*$HPPEMIT '{'*)

(*$HPPEMIT ' int cbStruct ;'*)

(*$HPPEMIT ' HRESULT hr ;'*)

(*$HPPEMIT ' BSTR description ;'*)

(*$HPPEMIT '} HH_LAST_ERROR ;'*)

(*$HPPEMIT ''*)

uses Classes, Windows, Sysutils, Forms, Dialogs;

{$DEFINE HTMLHELP12}

type

{$IFDEF HTMLHELP12}

{$IFNDEF _WIN64}

DWORD_PTR = DWORD;

{$ENDIF}

PCSTR = LPCSTR;

// Commands to pass to HtmlHelp()

const

HH_DISPLAY_TOPIC = $0000;

{$EXTERNALSYM HH_DISPLAY_TOPIC}

HH_HELP_FINDER = $0000; // WinHelp equivalent

{$EXTERNALSYM HH_HELP_FINDER}

HH_DISPLAY_TOC = $0001; // not currently implemented

{$EXTERNALSYM HH_DISPLAY_TOC}

HH_DISPLAY_INDEX = $0002; // not currently implemented

{$EXTERNALSYM HH_DISPLAY_INDEX}

HH_DISPLAY_SEARCH = $0003; // not currently implemented

{$EXTERNALSYM HH_DISPLAY_SEARCH}

HH_SET_WIN_TYPE = $0004;

{$EXTERNALSYM HH_SET_WIN_TYPE}

HH_GET_WIN_TYPE = $0005;

{$EXTERNALSYM HH_GET_WIN_TYPE}

HH_GET_WIN_HANDLE = $0006;

{$EXTERNALSYM HH_GET_WIN_HANDLE}

HH_ENUM_INFO_TYPE = $0007; // Get Info type name, call repeatedly to enumerate, -1 at end

{$EXTERNALSYM HH_ENUM_INFO_TYPE}

HH_SET_INFO_TYPE = $0008; // Add Info type to filter.

{$EXTERNALSYM HH_SET_INFO_TYPE}

HH_SYNC = $0009;

{$EXTERNALSYM HH_SYNC}

{$IFDEF HTMLHELP11}

HH_ADD_NAV_UI = $000A; // not currently implemented

{$EXTERNALSYM HH_ADD_NAV_UI}

HH_ADD_BUTTON = $000B; // not currently implemented

{$EXTERNALSYM HH_ADD_BUTTON}

HH_GETBROWSER_APP = $000C; // not currently implemented

{$EXTERNALSYM HH_GETBROWSER_APP}

{$ENDIF}

{$IFDEF HTMLHELP12}

HH_RESERVED1 = $000A;

{$EXTERNALSYM HH_RESERVED1}

HH_RESERVED2 = $000B;

{$EXTERNALSYM HH_RESERVED2}

HH_RESERVED3 = $000C;

{$EXTERNALSYM HH_RESERVED3}

{$ENDIF}

HH_KEYWORD_LOOKUP = $000D;

{$EXTERNALSYM HH_KEYWORD_LOOKUP}

HH_DISPLAY_TEXT_POPUP = $000E; // display string resource id or text in a popup window

{$EXTERNALSYM HH_DISPLAY_TEXT_POPUP}

HH_HELP_CONTEXT = $000F; // display mapped numeric value in dwData

{$EXTERNALSYM HH_HELP_CONTEXT}

HH_TP_HELP_CONTEXTMENU = $0010; // text popup help, same as WinHelp HELP_CONTEXTMENU

{$EXTERNALSYM HH_TP_HELP_CONTEXTMENU}

HH_TP_HELP_WM_HELP = $0011; // text popup help, same as WinHelp HELP_WM_HELP

{$EXTERNALSYM HH_TP_HELP_WM_HELP}

HH_CLOSE_ALL = $0012; // close all windows opened directly or indirectly by the caller

{$EXTERNALSYM HH_CLOSE_ALL}

HH_ALINK_LOOKUP = $0013; // ALink version of HH_KEYWORD_LOOKUP

{$EXTERNALSYM HH_ALINK_LOOKUP}

HH_GET_LAST_ERROR = $0014; // not currently implemented, See HHERROR.h

{$EXTERNALSYM HH_GET_LAST_ERROR}

HH_ENUM_CATEGORY = $0015; // Get category name, call repeatedly to enumerate, -1 at end

{$EXTERNALSYM HH_ENUM_CATEGORY}

HH_ENUM_CATEGORY_IT = $0016; // Get category info type members, call repeatedly to enumerate, -1 at end

{$EXTERNALSYM HH_ENUM_CATEGORY_IT}

HH_RESET_IT_FILTER = $0017; // Clear the info type filter of all info types.

{$EXTERNALSYM HH_RESET_IT_FILTER}

HH_SET_INCLUSIVE_FILTER = $0018; // set inclusive filtering method for untyped topics to be included in display

{$EXTERNALSYM HH_SET_INCLUSIVE_FILTER}

HH_SET_EXCLUSIVE_FILTER = $0019; // set exclusive filtering method for untyped topics to be excluded from display

{$EXTERNALSYM HH_SET_EXCLUSIVE_FILTER}

{$IFDEF HTMLHELP11}

HH_SET_GUID = $001A; // For Microsoft Installer -- dwData is a pointer to the GUID string

{$EXTERNALSYM HH_SET_GUID}

{$ENDIF}

{$IFDEF HTMLHELP12}

HH_INITIALIZE = $001C; // Initializes the help system.

{$EXTERNALSYM HH_INITIALIZE}

HH_UNINITIALIZE = $001D; // Uninitializes the help system.

{$EXTERNALSYM HH_UNINITIALIZE}

HH_PRETRANSLATEMESSAGE = $00FD; // Pumps messages. (NULL, NULL, MSG*).

{$EXTERNALSYM HH_PRETRANSLATEMESSAGE}

HH_SET_GLOBAL_PROPERTY = $00FC; // Set a global property. (NULL, NULL, HH_GPROP)

{$EXTERNALSYM HH_SET_GLOBAL_PROPERTY}

{$ENDIF}

{$IFDEF HTMLHELP11}

HH_INTERNAL = $00FF; // Used internally.

{$EXTERNALSYM HH_INTERNAL}

{$ENDIF}

{$IFDEF HTMLHELP12}

HHWIN_PROP_TAB_AUTOHIDESHOW = (1 shl 0); // Automatically hide/show tri-pane window

{$EXTERNALSYM HHWIN_PROP_TAB_AUTOHIDESHOW}

{$ENDIF}

HHWIN_PROP_ONTOP = (1 shl 1); // Top-most window (not currently implemented)

{$EXTERNALSYM HHWIN_PROP_ONTOP}

HHWIN_PROP_NOTITLEBAR = (1 shl 2); // no title bar

{$EXTERNALSYM HHWIN_PROP_NOTITLEBAR}

HHWIN_PROP_NODEF_STYLES = (1 shl 3); // no default window styles (only HH_WINTYPE.dwStyles)

{$EXTERNALSYM HHWIN_PROP_NODEF_STYLES}

HHWIN_PROP_NODEF_EXSTYLES = (1 shl 4); // no default extended window styles (only HH_WINTYPE.dwExStyles)

{$EXTERNALSYM HHWIN_PROP_NODEF_EXSTYLES}

HHWIN_PROP_TRI_PANE = (1 shl 5); // use a tri-pane window

{$EXTERNALSYM HHWIN_PROP_TRI_PANE}

HHWIN_PROP_NOTB_TEXT = (1 shl 6); // no text on toolbar buttons

{$EXTERNALSYM HHWIN_PROP_NOTB_TEXT}

HHWIN_PROP_POST_QUIT = (1 shl 7); // post WM_QUIT message when window closes

{$EXTERNALSYM HHWIN_PROP_POST_QUIT}

HHWIN_PROP_AUTO_SYNC = (1 shl 8); // automatically ssync contents and index

{$EXTERNALSYM HHWIN_PROP_AUTO_SYNC}

HHWIN_PROP_TRACKING = (1 shl 9); // send tracking notification messages

{$EXTERNALSYM HHWIN_PROP_TRACKING}

HHWIN_PROP_TAB_SEARCH = (1 shl 10); // include search tab in navigation pane

{$EXTERNALSYM HHWIN_PROP_TAB_SEARCH}

HHWIN_PROP_TAB_HISTORY = (1 shl 11); // include history tab in navigation pane

{$EXTERNALSYM HHWIN_PROP_TAB_HISTORY}

{$IFDEF HTMLHELP11}

HHWIN_PROP_TAB_BOOKMARKS = (1 shl 12); // include bookmark tab in navigation pane

{$EXTERNALSYM HHWIN_PROP_TAB_BOOKMARKS}

{$ENDIF}

{$IFDEF HTMLHELP12}

HHWIN_PROP_TAB_FAVORITES = (1 shl 12); // include favorites tab in navigation pane

{$EXTERNALSYM HHWIN_PROP_TAB_FAVORITES}

{$ENDIF}

HHWIN_PROP_CHANGE_TITLE = (1 shl 13); // Put current HTML title in title bar

{$EXTERNALSYM HHWIN_PROP_CHANGE_TITLE}

HHWIN_PROP_NAV_ONLY_WIN = (1 shl 14); // Only display the navigation window

{$EXTERNALSYM HHWIN_PROP_NAV_ONLY_WIN}

HHWIN_PROP_NO_TOOLBAR = (1 shl 15); // Don't display a toolbar

{$EXTERNALSYM HHWIN_PROP_NO_TOOLBAR}

HHWIN_PROP_MENU = (1 shl 16); // Menu

{$EXTERNALSYM HHWIN_PROP_MENU}

HHWIN_PROP_TAB_ADVSEARCH = (1 shl 17); // Advanced FTS UI.

{$EXTERNALSYM HHWIN_PROP_TAB_ADVSEARCH}

HHWIN_PROP_USER_POS = (1 shl 18); // After initial creation, user controls window size/Position

{$EXTERNALSYM HHWIN_PROP_USER_POS}

{$IFDEF HTMLHELP12}

HHWIN_PROP_TAB_CUSTOM1 = (1 shl 19); // Use custom tab #1

{$EXTERNALSYM HHWIN_PROP_TAB_CUSTOM1}

HHWIN_PROP_TAB_CUSTOM2 = (1 shl 20); // Use custom tab #2

{$EXTERNALSYM HHWIN_PROP_TAB_CUSTOM2}

HHWIN_PROP_TAB_CUSTOM3 = (1 shl 21); // Use custom tab #3

{$EXTERNALSYM HHWIN_PROP_TAB_CUSTOM3}

HHWIN_PROP_TAB_CUSTOM4 = (1 shl 22); // Use custom tab #4

{$EXTERNALSYM HHWIN_PROP_TAB_CUSTOM4}

HHWIN_PROP_TAB_CUSTOM5 = (1 shl 23); // Use custom tab #5

{$EXTERNALSYM HHWIN_PROP_TAB_CUSTOM5}

HHWIN_PROP_TAB_CUSTOM6 = (1 shl 24); // Use custom tab #6

{$EXTERNALSYM HHWIN_PROP_TAB_CUSTOM6}

HHWIN_PROP_TAB_CUSTOM7 = (1 shl 25); // Use custom tab #7

{$EXTERNALSYM HHWIN_PROP_TAB_CUSTOM7}

HHWIN_PROP_TAB_CUSTOM8 = (1 shl 26); // Use custom tab #8

{$EXTERNALSYM HHWIN_PROP_TAB_CUSTOM8}

HHWIN_PROP_TAB_CUSTOM9 = (1 shl 27); // Use custom tab #9

{$EXTERNALSYM HHWIN_PROP_TAB_CUSTOM9}

HHWIN_TB_MARGIN = (1 shl 28); // the window type has a margin

{$EXTERNALSYM HHWIN_TB_MARGIN}

{$ENDIF}

HHWIN_PARAM_PROPERTIES = (1 shl 1); // valid fsWinProperties

{$EXTERNALSYM HHWIN_PARAM_PROPERTIES}

HHWIN_PARAM_STYLES = (1 shl 2); // valid dwStyles

{$EXTERNALSYM HHWIN_PARAM_STYLES}

HHWIN_PARAM_EXSTYLES = (1 shl 3); // valid dwExStyles

{$EXTERNALSYM HHWIN_PARAM_EXSTYLES}

HHWIN_PARAM_RECT = (1 shl 4); // valid rcWindowPos

{$EXTERNALSYM HHWIN_PARAM_RECT}

HHWIN_PARAM_NAV_WIDTH = (1 shl 5); // valid iNavWidth

{$EXTERNALSYM HHWIN_PARAM_NAV_WIDTH}

HHWIN_PARAM_SHOWSTATE = (1 shl 6); // valid nShowState

{$EXTERNALSYM HHWIN_PARAM_SHOWSTATE}

HHWIN_PARAM_INFOTYPES = (1 shl 7); // valid apInfoTypes

{$EXTERNALSYM HHWIN_PARAM_INFOTYPES}

HHWIN_PARAM_TB_FLAGS = (1 shl 8); // valid fsToolBarFlags

{$EXTERNALSYM HHWIN_PARAM_TB_FLAGS}

HHWIN_PARAM_EXPANSION = (1 shl 9); // valid fNotExpanded

{$EXTERNALSYM HHWIN_PARAM_EXPANSION}

HHWIN_PARAM_TABPOS = (1 shl 10); // valid tabpos

{$EXTERNALSYM HHWIN_PARAM_TABPOS}

HHWIN_PARAM_TABORDER = (1 shl 11); // valid taborder

{$EXTERNALSYM HHWIN_PARAM_TABORDER}

HHWIN_PARAM_HISTORY_COUNT = (1 shl 12); // valid cHistory

{$EXTERNALSYM HHWIN_PARAM_HISTORY_COUNT}

HHWIN_PARAM_CUR_TAB = (1 shl 13); // valid curNavType

{$EXTERNALSYM HHWIN_PARAM_CUR_TAB}

HHWIN_BUTTON_EXPAND = (1 shl 1); // Expand/contract button

{$EXTERNALSYM HHWIN_BUTTON_EXPAND}

HHWIN_BUTTON_BACK = (1 shl 2); // Back button

{$EXTERNALSYM HHWIN_BUTTON_BACK}

HHWIN_BUTTON_FORWARD = (1 shl 3); // Forward button

{$EXTERNALSYM HHWIN_BUTTON_FORWARD}

HHWIN_BUTTON_STOP = (1 shl 4); // Stop button

{$EXTERNALSYM HHWIN_BUTTON_STOP}

HHWIN_BUTTON_REFRESH = (1 shl 5); // Refresh button

{$EXTERNALSYM HHWIN_BUTTON_REFRESH}

HHWIN_BUTTON_HOME = (1 shl 6); // Home button

{$EXTERNALSYM HHWIN_BUTTON_HOME}

HHWIN_BUTTON_BROWSE_FWD = (1 shl 7); // not implemented

{$EXTERNALSYM HHWIN_BUTTON_BROWSE_FWD}

HHWIN_BUTTON_BROWSE_BCK = (1 shl 8); // not implemented

{$EXTERNALSYM HHWIN_BUTTON_BROWSE_BCK}

HHWIN_BUTTON_NOTES = (1 shl 9); // not implemented

{$EXTERNALSYM HHWIN_BUTTON_NOTES}

HHWIN_BUTTON_CONTENTS = (1 shl 10); // not implemented

{$EXTERNALSYM HHWIN_BUTTON_CONTENTS}

HHWIN_BUTTON_SYNC = (1 shl 11); // Sync button

{$EXTERNALSYM HHWIN_BUTTON_SYNC}

HHWIN_BUTTON_OPTIONS = (1 shl 12); // Options button

{$EXTERNALSYM HHWIN_BUTTON_OPTIONS}

HHWIN_BUTTON_PRINT = (1 shl 13); // Print button

{$EXTERNALSYM HHWIN_BUTTON_PRINT}

HHWIN_BUTTON_INDEX = (1 shl 14); // not implemented

{$EXTERNALSYM HHWIN_BUTTON_INDEX}

HHWIN_BUTTON_SEARCH = (1 shl 15); // not implemented

{$EXTERNALSYM HHWIN_BUTTON_SEARCH}

HHWIN_BUTTON_HISTORY = (1 shl 16); // not implemented

{$EXTERNALSYM HHWIN_BUTTON_HISTORY}

{$IFDEF HTMLHELP11}

HHWIN_BUTTON_BOOKMARKS = (1 shl 17); // not implemented

{$EXTERNALSYM HHWIN_BUTTON_BOOKMARKS}

{$ENDIF}

{$IFDEF HTMLHELP12}

HHWIN_BUTTON_FAVORITES = (1 shl 17); // not implemented

{$EXTERNALSYM HHWIN_BUTTON_FAVORITES}

{$ENDIF}

HHWIN_BUTTON_JUMP1 = (1 shl 18);

{$EXTERNALSYM HHWIN_BUTTON_JUMP1}

HHWIN_BUTTON_JUMP2 = (1 shl 19);

{$EXTERNALSYM HHWIN_BUTTON_JUMP2}

HHWIN_BUTTON_ZOOM = (1 shl 20);

{$EXTERNALSYM HHWIN_BUTTON_ZOOM}

HHWIN_BUTTON_TOC_NEXT = (1 shl 21);

{$EXTERNALSYM HHWIN_BUTTON_TOC_NEXT}

HHWIN_BUTTON_TOC_PREV = (1 shl 22);

{$EXTERNALSYM HHWIN_BUTTON_TOC_PREV}

HHWIN_DEF_BUTTONS = HHWIN_BUTTON_EXPAND or HHWIN_BUTTON_BACK or

HHWIN_BUTTON_OPTIONS or HHWIN_BUTTON_PRINT;

{$EXTERNALSYM HHWIN_DEF_BUTTONS}

// Button IDs

IDTB_EXPAND = 200;

{$EXTERNALSYM IDTB_EXPAND}

IDTB_CONTRACT = 201;

{$EXTERNALSYM IDTB_CONTRACT}

IDTB_STOP = 202;

{$EXTERNALSYM IDTB_STOP}

IDTB_REFRESH = 203;

{$EXTERNALSYM IDTB_REFRESH}

IDTB_BACK = 204;

{$EXTERNALSYM IDTB_BACK}

IDTB_HOME = 205;

{$EXTERNALSYM IDTB_HOME}

IDTB_SYNC = 206;

{$EXTERNALSYM IDTB_SYNC}

IDTB_PRINT = 207;

{$EXTERNALSYM IDTB_PRINT}

IDTB_OPTIONS = 208;

{$EXTERNALSYM IDTB_OPTIONS}

IDTB_FORWARD = 209;

{$EXTERNALSYM IDTB_FORWARD}

IDTB_NOTES = 210; // not implemented

{$EXTERNALSYM IDTB_NOTES}

IDTB_BROWSE_FWD = 211;

{$EXTERNALSYM IDTB_BROWSE_FWD}

IDTB_BROWSE_BACK = 212;

{$EXTERNALSYM IDTB_BROWSE_BACK}

IDTB_CONTENTS = 213; // not implemented

{$EXTERNALSYM IDTB_CONTENTS}

IDTB_INDEX = 214; // not implemented

{$EXTERNALSYM IDTB_INDEX}

IDTB_SEARCH = 215; // not implemented

{$EXTERNALSYM IDTB_SEARCH}

IDTB_HISTORY = 216; // not implemented

{$EXTERNALSYM IDTB_HISTORY}

{$IFDEF HTMLHELP11}

IDTB_BOOKMARKS = 217; // not implemented

{$EXTERNALSYM IDTB_BOOKMARKS}

{$ENDIF}

{$IFDEF HTMLHELP12}

IDTB_FAVORITES = 217; // not implemented

{$EXTERNALSYM IDTB_FAVORITES}

{$ENDIF}

IDTB_JUMP1 = 218;

{$EXTERNALSYM IDTB_JUMP1}

IDTB_JUMP2 = 219;

{$EXTERNALSYM IDTB_JUMP2}

IDTB_CUSTOMIZE = 221;

{$EXTERNALSYM IDTB_CUSTOMIZE}

IDTB_ZOOM = 222;

{$EXTERNALSYM IDTB_ZOOM}

IDTB_TOC_NEXT = 223;

{$EXTERNALSYM IDTB_TOC_NEXT}

IDTB_TOC_PREV = 224;

{$EXTERNALSYM IDTB_TOC_PREV}

// Notification codes

HHN_FIRST = -860;

{$EXTERNALSYM HHN_FIRST}

HHN_LAST = -879;

{$EXTERNALSYM HHN_LAST}

HHN_NAVCOMPLETE = (HHN_FIRST - 0);

{$EXTERNALSYM HHN_NAVCOMPLETE}

HHN_TRACK = (HHN_FIRST - 1);

{$EXTERNALSYM HHN_TRACK}

HHN_WINDOW_CREATE = (HHN_FIRST - 2);

{$EXTERNALSYM HHN_WINDOW_CREATE}

type

PHHLastError = ^THHLastError;

tagHH_LAST_ERROR = packed record

cbStruct: Integer; // size of this structure

hr: HRESULT; // the last error code.

description: PWideChar; // a description of the error (unicode string - BSTR).

end;

THHLastError = tagHH_LAST_ERROR;

PHHNNotify = ^THHNNotify;

tagHHN_NOTIFY = packed record

hdr: NMHDR;

pszUrl: PCSTR; // multibyte null-terminated string

end;

{$EXTERNALSYM tagHHN_NOTIFY}

HHN_NOTIFY = tagHHN_NOTIFY;

{$EXTERNALSYM HHN_NOTIFY}

THHNNotify = tagHHN_NOTIFY;

PHHPopup = ^THHPopup;

tagHH_POPUP = packed record

cbStruct: Integer; // sizeof this structure

hinst: HINST; // instance handle for string resource

idString: UINT; // string resource id, or text id if pszFile is specified in HtmlHelp call

pszText: LPCTSTR; // used if idString is zero

pt: TPoint; // top center of popup window

clrForeGround: TColorRef; // use -1 for default

clrBackground: TColorRef; // use -1 for default

rcMargins: TRect; // amount of space between edges of window and text, -1 for each member to ignore

pszFont: LPCTSTR; // facename, point size, char set, BOLD ITALIC UNDERLINE

end;

{$EXTERNALSYM tagHH_POPUP}

HH_POPUP = tagHH_POPUP;

{$EXTERNALSYM HH_POPUP}

THHPopup = tagHH_POPUP;

PHHAKLink = ^THHAKLink;

tagHH_AKLINK = packed record

cbStruct: Integer; // sizeof this structure

fReserved: BOOL; // must be FALSE (really!)

pszKeywords: LPCTSTR; // semi-colon separated keywords

pszUrl: LPCTSTR; // URL to jump to if no keywords found (may be NULL)

pszMsgText: LPCTSTR; // Message text to display in MessageBox if pszUrl is NULL and no keyword match

pszMsgTitle: LPCTSTR; // Message text to display in MessageBox if pszUrl is NULL and no keyword match

pszWindow: LPCTSTR; // Window to display URL in

fIndexOnFail: BOOL; // Displays index if keyword lookup fails.

end;

{$EXTERNALSYM tagHH_AKLINK}

HH_AKLINK = tagHH_AKLINK;

{$EXTERNALSYM HH_AKLINK}

THHAKLink = tagHH_AKLINK;

const

HHWIN_NAVTYPE_TOC = 0;

{$EXTERNALSYM HHWIN_NAVTYPE_TOC}

HHWIN_NAVTYPE_INDEX = 1;

{$EXTERNALSYM HHWIN_NAVTYPE_INDEX}

HHWIN_NAVTYPE_SEARCH = 2;

{$EXTERNALSYM HHWIN_NAVTYPE_SEARCH}

{$IFDEF HTMLHELP11}

HHWIN_NAVTYPE_BOOKMARKS = 3;

{$EXTERNALSYM HHWIN_NAVTYPE_BOOKMARKS}

HHWIN_NAVTYPE_HISTORY = 4; //not implemented

{$EXTERNALSYM HHWIN_NAVTYPE_HISTORY}

{$ENDIF}

{$IFDEF HTMLHELP12}

HHWIN_NAVTYPE_FAVORITES = 3;

{$EXTERNALSYM HHWIN_NAVTYPE_FAVORITES}

HHWIN_NAVTYPE_HISTORY = 4; //not implemented

{$EXTERNALSYM HHWIN_NAVTYPE_HISTORY}

HHWIN_NAVTYPE_AUTHOR = 5;

{$EXTERNALSYM HHWIN_NAVTYPE_AUTHOR}

HHWIN_NAVTYPE_CUSTOM_FIRST = 11;

{$EXTERNALSYM HHWIN_NAVTYPE_CUSTOM_FIRST}

{$ENDIF}

IT_INCLUSIVE = 0;

{$EXTERNALSYM IT_INCLUSIVE}

IT_EXCLUSIVE = 1;

{$EXTERNALSYM IT_EXCLUSIVE}

IT_HIDDEN = 2;

{$EXTERNALSYM IT_HIDDEN}

type

PHHEnumIT = ^THHEnumIT;

tagHH_ENUM_IT = packed record

cbStruct: Integer; // size of this structure

iType: Integer; // the type of the information type ie. Inclusive, Exclusive, or Hidden

pszCatName: LPCSTR; // Set to the name of the Category to enumerate the info types in a category; else NULL

pszITName: LPCSTR; // volitile pointer to the name of the infotype. Allocated by call. Caller responsible for freeing

pszITDescription: LPCSTR; // volitile pointer to the description of the infotype.

end;

{$EXTERNALSYM tagHH_ENUM_IT}

HH_ENUM_IT = tagHH_ENUM_IT;

{$EXTERNALSYM HH_ENUM_IT}

PHH_ENUM_IT = ^tagHH_ENUM_IT;

{$EXTERNALSYM PHH_ENUM_IT}

THHEnumIT = tagHH_ENUM_IT;

PHHEnumCat = ^THHEnumCat;

tagHH_ENUM_CAT = packed record

cbStruct: Integer; // size of this structure

pszCatName: LPCSTR; // volitile pointer to the category name

pszCatDescription: LPCSTR; // volitile pointer to the category description

end;

{$EXTERNALSYM tagHH_ENUM_CAT}

HH_ENUM_CAT = tagHH_ENUM_CAT;

{$EXTERNALSYM HH_ENUM_CAT}

PHH_ENUM_CAT = ^tagHH_ENUM_CAT;

{$EXTERNALSYM PHH_ENUM_CAT}

THHEnumCat = tagHH_ENUM_CAT;

PHHSetInfoType = ^THHSetInfoType;

tagHH_SET_INFOTYPE = packed record

cbStruct: Integer; // the size of this structure

pszCatName: LPCSTR; // the name of the category, if any, the InfoType is a member of.

pszInfoTypeName: LPCSTR; // the name of the info type to add to the filter

end;

{$EXTERNALSYM tagHH_SET_INFOTYPE}

HH_SET_INFOTYPE = tagHH_SET_INFOTYPE;

{$EXTERNALSYM HH_SET_INFOTYPE}

PHH_SET_INFOTYPE = ^tagHH_SET_INFOTYPE;

{$EXTERNALSYM PHH_SET_INFOTYPE}

THHSetInfoType = tagHH_SET_INFOTYPE;

HH_INFOTYPE = DWORD;

{$EXTERNALSYM HH_INFOTYPE}

PHH_INFOTYPE = ^HH_INFOTYPE;

{$EXTERNALSYM PHH_INFOTYPE}

PHHInfoType = ^THHInfoType;

THHInfoType = HH_INFOTYPE;

const

HHWIN_NAVTAB_TOP = 0;

{$EXTERNALSYM HHWIN_NAVTAB_TOP}

HHWIN_NAVTAB_LEFT = 1;

{$EXTERNALSYM HHWIN_NAVTAB_LEFT}

HHWIN_NAVTAB_BOTTOM = 2;

{$EXTERNALSYM HHWIN_NAVTAB_BOTTOM}

HH_MAX_TABS = 19;

{$EXTERNALSYM HH_MAX_TABS}

HH_TAB_CONTENTS = 0;

{$EXTERNALSYM HH_TAB_CONTENTS}

HH_TAB_INDEX = 1;

{$EXTERNALSYM HH_TAB_INDEX}

HH_TAB_SEARCH = 2;

{$EXTERNALSYM HH_TAB_SEARCH}

{$IFDEF HTMLHELP11}

HH_TAB_BOOKMARKS = 3;

{$EXTERNALSYM HH_TAB_BOOKMARKS}

HH_TAB_HISTORY = 4;

{$EXTERNALSYM HH_TAB_HISTORY}

{$ENDIF}

{$IFDEF HTMLHELP12}

HH_TAB_FAVORITES = 3;

{$EXTERNALSYM HH_TAB_FAVORITES}

HH_TAB_HISTORY = 4;

{$EXTERNALSYM HH_TAB_HISTORY}

HH_TAB_AUTHOR = 5;

{$EXTERNALSYM HH_TAB_AUTHOR}

HH_TAB_CUSTOM_FIRST = 11;

{$EXTERNALSYM HH_TAB_CUSTOM_FIRST}

HH_TAB_CUSTOM_LAST = HH_MAX_TABS;

{$EXTERNALSYM HH_TAB_CUSTOM_LAST}

HH_MAX_TABS_CUSTOM = HH_TAB_CUSTOM_LAST - HH_TAB_CUSTOM_FIRST + 1;

{$EXTERNALSYM HH_MAX_TABS_CUSTOM}

{$ENDIF}

// HH_DISPLAY_SEARCH Command Related Structures and Constants

HH_FTS_DEFAULT_PROXIMITY = -1;

{$EXTERNALSYM HH_FTS_DEFAULT_PROXIMITY}

type

PHHFtsQuery = ^THHFtsQuery;

tagHH_FTS_QUERY = packed record

cbStruct: Integer; // Sizeof structure in bytes.

fUniCodeStrings: BOOL; // TRUE if all strings are unicode.

pszSearchQuery: LPCTSTR; // String containing the search query.

iProximity: LongInt; // Word proximity.

fStemmedSearch: BOOL; // TRUE for StemmedSearch only.

fTitleOnly: BOOL; // TRUE for Title search only.

fExecute: BOOL; // TRUE to initiate the search.

pszWindow: LPCTSTR; // Window to display in

end;

{$EXTERNALSYM tagHH_FTS_QUERY}

HH_FTS_QUERY = tagHH_FTS_QUERY;

{$EXTERNALSYM HH_FTS_QUERY}

THHFtsQuery = tagHH_FTS_QUERY;

PHHWinType = ^THHWinType;

tagHH_WINTYPE = packed record

cbStruct: Integer; // IN: size of this structure including all Information Types

fUniCodeStrings: BOOL; // IN/OUT: TRUE if all strings are in UNICODE

pszType: LPCTSTR; // IN/OUT: Name of a type of window

fsValidMembers: DWORD; // IN: Bit flag of valid members (HHWIN_PARAM_)

fsWinProperties: DWORD; // IN/OUT: Properties/attributes of the window (HHWIN_)

pszCaption: LPCTSTR; // IN/OUT: Window title

dwStyles: DWORD; // IN/OUT: Window styles

dwExStyles: DWORD; // IN/OUT: Extended Window styles

rcWindowPos: TRect; // IN: Starting position, OUT: current position

nShowState: Integer; // IN: show state (e.g., SW_SHOW)

hwndHelp: HWND; // OUT: window handle

hwndCaller: HWND; // OUT: who called this window

paInfoTypes: PHHInfoType; // IN: Pointer to an array of Information Types

{ The following members are only valid if HHWIN_PROP_TRI_PANE is set }

hwndToolBar: HWND; // OUT: toolbar window in tri-pane window

hwndNavigation: HWND; // OUT: navigation window in tri-pane window

hwndHTML: HWND; // OUT: window displaying HTML in tri-pane window

iNavWidth: Integer; // IN/OUT: width of navigation window

rcHTML: TRect; // OUT: HTML window coordinates

pszToc: LPCTSTR; // IN: Location of the table of contents file

pszIndex: LPCTSTR; // IN: Location of the index file

pszFile: LPCTSTR; // IN: Default location of the html file

pszHome: LPCTSTR; // IN/OUT: html file to display when Home button is clicked

fsToolBarFlags: DWORD; // IN: flags controling the appearance of the toolbar

fNotExpanded: BOOL; // IN: TRUE/FALSE to contract or expand, OUT: current state

curNavType: Integer; // IN/OUT: UI to display in the navigational pane

tabpos: Integer; // IN/OUT: HHWIN_NAVTAB_TOP, HHWIN_NAVTAB_LEFT, or HHWIN_NAVTAB_BOTTOM

idNotify: Integer; // IN: ID to use for WM_NOTIFY messages

tabOrder: array[0..HH_MAX_TABS] of Byte; // IN/OUT: tab order: Contents, Index, Search, History, Favorites, Reserved 1-5, Custom tabs

cHistory: Integer; // IN/OUT: number of history items to keep (default is 30)

pszJump1: LPCTSTR; // Text for HHWIN_BUTTON_JUMP1

pszJump2: LPCTSTR; // Text for HHWIN_BUTTON_JUMP2

pszUrlJump1: LPCTSTR; // URL for HHWIN_BUTTON_JUMP1

pszUrlJump2: LPCTSTR; // URL for HHWIN_BUTTON_JUMP2

rcMinSize: TRect; // Minimum size for window (ignored in version 1)

cbInfoTypes: Integer; // size of paInfoTypes;

{$IFDEF HTMLHELP12}

pszCustomTabs: LPCTSTR; // multiple zero-terminated Strings

{$ENDIF}

end;

{$EXTERNALSYM tagHH_WINTYPE}

HH_WINTYPE = tagHH_WINTYPE;

{$EXTERNALSYM HH_WINTYPE}

PHH_WINTYPE = ^tagHH_WINTYPE;

{$EXTERNALSYM PHH_WINTYPE}

THHWinType = tagHH_WINTYPE;

const

HHACT_TAB_CONTENTS = 0;

{$EXTERNALSYM HHACT_TAB_CONTENTS}

HHACT_TAB_INDEX = 1;

{$EXTERNALSYM HHACT_TAB_INDEX}

HHACT_TAB_SEARCH = 2;

{$EXTERNALSYM HHACT_TAB_SEARCH}

HHACT_TAB_HISTORY = 3;

{$EXTERNALSYM HHACT_TAB_HISTORY}

HHACT_TAB_FAVORITES = 4;

{$EXTERNALSYM HHACT_TAB_FAVORITES}

HHACT_EXPAND = 5;

{$EXTERNALSYM HHACT_EXPAND}

HHACT_CONTRACT = 6;

{$EXTERNALSYM HHACT_CONTRACT}

HHACT_BACK = 7;

{$EXTERNALSYM HHACT_BACK}

HHACT_FORWARD = 8;

{$EXTERNALSYM HHACT_FORWARD}

HHACT_STOP = 9;

{$EXTERNALSYM HHACT_STOP}

HHACT_REFRESH = 10;

{$EXTERNALSYM HHACT_REFRESH}

HHACT_HOME = 11;

{$EXTERNALSYM HHACT_HOME}

HHACT_SYNC = 12;

{$EXTERNALSYM HHACT_SYNC}

HHACT_OPTIONS = 13;

{$EXTERNALSYM HHACT_OPTIONS}

HHACT_PRINT = 14;

{$EXTERNALSYM HHACT_PRINT}

HHACT_HIGHLIGHT = 15;

{$EXTERNALSYM HHACT_HIGHLIGHT}

HHACT_CUSTOMIZE = 16;

{$EXTERNALSYM HHACT_CUSTOMIZE}

HHACT_JUMP1 = 17;

{$EXTERNALSYM HHACT_JUMP1}

HHACT_JUMP2 = 18;

{$EXTERNALSYM HHACT_JUMP2}

HHACT_ZOOM = 19;

{$EXTERNALSYM HHACT_ZOOM}

HHACT_TOC_NEXT = 20;

{$EXTERNALSYM HHACT_TOC_NEXT}

HHACT_TOC_PREV = 21;

{$EXTERNALSYM HHACT_TOC_PREV}

HHACT_NOTES = 22;

{$EXTERNALSYM HHACT_NOTES}

HHACT_LAST_ENUM = 23;

{$EXTERNALSYM HHACT_LAST_ENUM}

type

PHHNTrack = ^THHNTrack;

tagHHNTRACK = packed record

hdr: NMHDR;

pszCurUrl: PCSTR; // Multi-byte, null-terminated string

idAction: Integer; // HHACT_ value

phhWinType: PHHWinType; // Current window type structure

end;

{$EXTERNALSYM tagHHNTRACK}

HHNTRACK = tagHHNTRACK;

{$EXTERNALSYM HHNTRACK}

THHNTrack = tagHHNTRACK;

{$IFDEF HTMLHELP_DYNAMIC_LINK}

type

THtmlHelpA = function (hwndCaller: HWND; pszFile: PAnsiChar; uCommand: UINT;

{$IFDEF HTMLHELP11}dwData: DWORD): HWND; stdcall;{$ENDIF}

{$IFDEF HTMLHELP12}dwData: DWORD_PTR): HWND; stdcall;{$ENDIF}

THtmlHelpW = function (hwndCaller: HWND; pszFile: PWideChar; uCommand: UINT;

{$IFDEF HTMLHELP11}dwData: DWORD): HWND; stdcall;{$ENDIF}

{$IFDEF HTMLHELP12}dwData: DWORD_PTR): HWND; stdcall;{$ENDIF}

THtmlHelp = THtmlHelpA;

var

HtmlHelpA: THtmlHelpA = nil;

HtmlHelpW: THtmlHelpW = nil;

HtmlHelp: THtmlHelp = nil;

{$ELSE}

function HtmlHelpA(hwndCaller: HWND; pszFile: PAnsiChar; uCommand: UINT;

{$IFDEF HTMLHELP11}

dwData: DWORD): HWND; stdcall;

{$ENDIF}

{$IFDEF HTMLHELP12}

dwData: DWORD_PTR): HWND; stdcall;

{$ENDIF}

{$EXTERNALSYM HtmlHelpA}

function HtmlHelpW(hwndCaller: HWND; pszFile: PWideChar; uCommand: UINT;

{$IFDEF HTMLHELP11}

dwData: DWORD): HWND; stdcall;

{$ENDIF}

{$IFDEF HTMLHELP12}

dwData: DWORD_PTR): HWND; stdcall;

{$ENDIF}

{$EXTERNALSYM HtmlHelpW}

function HtmlHelp(hwndCaller: HWND; pszFile: PChar; uCommand: UINT;

{$IFDEF HTMLHELP11}

dwData: DWORD): HWND; stdcall;

{$ENDIF}

{$IFDEF HTMLHELP12}

dwData: DWORD_PTR): HWND; stdcall;

{$ENDIF}

{$EXTERNALSYM HtmlHelp}

{$ENDIF}

// Use the following for GetProcAddress to load from hhctrl.ocx

const

ATOM_HTMLHELP_API_ANSI = LPTSTR(DWORD(WORD(14)));

{$EXTERNALSYM ATOM_HTMLHELP_API_ANSI}

ATOM_HTMLHELP_API_UNICODE = LPTSTR(DWORD(WORD(15)));

{$EXTERNALSYM ATOM_HTMLHELP_API_UNICODE}

{$IFDEF HTMLHELP12}

// Global Control Properties

const

HH_GPROPID_SINGLETHREAD = 1; // VARIANT_BOOL: True for single thread

{$EXTERNALSYM HH_GPROPID_SINGLETHREAD}

HH_GPROPID_TOOLBAR_MARGIN = 2; // long: Provides a left/right margin around the toolbar.

{$EXTERNALSYM HH_GPROPID_TOOLBAR_MARGIN}

HH_GPROPID_UI_LANGUAGE = 3; // long: LangId of the UI.

{$EXTERNALSYM HH_GPROPID_UI_LANGUAGE}

HH_GPROPID_CURRENT_SUBSET = 4; // BSTR: Current subset.

{$EXTERNALSYM HH_GPROPID_CURRENT_SUBSET}

HH_GPROPID_CONTENT_LANGUAGE = 5; // long: LandId for desired content.

{$EXTERNALSYM HH_GPROPID_CONTENT_LANGUAGE}

type

HH_GPROPID = HH_GPROPID_SINGLETHREAD..HH_GPROPID_CONTENT_LANGUAGE;

{$EXTERNALSYM HH_GPROPID}

THHGPropID = HH_GPROPID;

// Global Property structure

PHHGlobalProperty = ^THHGlobalProperty;

tagHH_GLOBAL_PROPERTY = record

id: THHGPropID;

Dummy: Integer; // JEDI: Added to enforce 8-byte packing

var_: OleVariant;

end;

HH_GLOBAL_PROPERTY = tagHH_GLOBAL_PROPERTY;

THHGlobalProperty = tagHH_GLOBAL_PROPERTY;

{$ENDIF}

{$IFDEF HTMLHELP_DYNAMIC_LINK}

function HtmlHelpLoaded: Boolean;

{$IFDEF HTMLHELP_DYNAMIC_LINK_EXPLICIT}

function LoadHtmlHelp: Boolean;

function UnLoadHtmlHelp: Boolean;

{$ENDIF}

type

THtmlHelp = class(TComponent)

private

FOldHelpEvent: THelpEvent;

FFileName: String;

FWinDef: String;

function GetFileName: String;

function HelpFunc(Command : Word; Data : Longint; Var CallHelp : Boolean) : Boolean;

function GetHHString(Topic: String): String;

protected

function DoHtmlHelp(uCommand: UINT; dwData: DWORD): HWND;

public

constructor Create(AOwner:TComponent);override;

destructor Destroy; override;

function HelpContext(ContextId: DWord): Integer;

function HelpTopic(Topic: String): Integer;

function ShowIndex:integer;

function ShowTableofContents:integer;

function ShowSearch:integer;

published

property FileName: String read GetFileName write FFileName;

property WinDef: String read FWindef write fWindef;

end;

//取帮助文件名

function HelpFileName: String;

//根据 ContextId 调用帮助

function ShowHelpContext(ContextId: DWord): Integer;

//根据检索字符调用帮助

function ShowHelpTopic(Topic: String): Integer;

//显示主帮助窗口

function ShowHelpWindow: Integer;

//显示主帮助窗口的索引栏

function ShowHelpIndex: Integer;

//显示主帮助窗口的搜索栏

function ShowHelpSearch: Integer;

//设置主帮助文件名

procedure SetHelpFileName(FileName: String);

var

Helper: THtmlHelp;

implementation

procedure CheckHelper;

begin

if not Assigned(Helper) then

Helper := THtmlHelp.Create(Application);

end;

procedure SetHelpFileName(FileName: String);

begin

CheckHelper;

Helper.FileName := FileName;

end;

function HelpFileName: String;

begin

CheckHelper;

Result := Helper.FileName;

end;

function ShowHelpTopic(Topic: String): Integer;

begin

CheckHelper;

Result := Helper.HelpTopic(Topic);

end;

function ShowHelpContext(ContextId: DWord): Integer;

begin

CheckHelper;

Result := Helper.HelpContext(ContextID);

end;

function ShowHelpWindow: Integer;

begin

CheckHelper;

Result := Helper.ShowTableofContents;

end;

function ShowHelpSearch: Integer;

begin

CheckHelper;

Result := Helper.ShowSearch;

end;

function ShowHelpIndex: Integer;

begin

CheckHelper;

Result := Helper.ShowIndex;

end;

{$IFDEF HTMLHELP_DYNAMIC_LINK}

uses

Registry, SysUtils;

var

HtmlHelpLib: THandle = 0;

function GetOCXPath(var Path: string): Boolean;

const

HHPathRegKey = 'CLSID\{adb880a6-d8ff-11cf-9377-00aa003b7a11}\InprocServer32';

begin

with TRegistry.Create do

try

RootKey := HKEY_CLASSES_ROOT;

if OpenKeyReadOnly(HHPathRegKey) then Path := ReadString('');

Result := (Path <> '') and FileExists(Path);

finally

Free;

end;

function HtmlHelpLoaded: Boolean;

begin

Result := HtmlHelpLib <> 0;

end;

function UnLoadHtmlHelp: Boolean;

begin

Result := True;

if HtmlHelpLoaded then

begin

if Assigned(HtmlHelp) then HtmlHelp(0, nil, HH_CLOSE_ALL, 0);

Result := FreeLibrary(HtmlHelpLib);

HtmlHelpLib := 0;

@HtmlHelpA := nil;

@HtmlHelpW := nil;

@HtmlHelp := nil;

end;

function LoadHtmlHelp: Boolean;

const

ProcNameA = 'HtmlHelpA';

ProcNameW = 'HtmlHelpW';

ProcName = ProcNameA;

var

HHOCXPath: string;

begin

Result := HtmlHelpLoaded;

if (not Result) and GetOCXPath(HHOCXPath) then

begin

HtmlHelpLib := LoadLibrary(PChar(HHOCXPath));

if HtmlHelpLoaded then

begin

@HtmlHelpA := GetProcAddress(HtmlHelpLib, ProcNameA);

@HtmlHelpW := GetProcAddress(HtmlHelpLib, ProcNameW);

@HtmlHelp := GetProcAddress(HtmlHelpLib, ProcName);

Result := Assigned(HtmlHelpA) and Assigned(HtmlHelpW);

if not Result then UnLoadHtmlHelp;

end;

{$ELSE}

const

hhctrl = 'hhctrl.ocx';

function HtmlHelpA; external hhctrl Name 'HtmlHelpA';

{$EXTERNALSYM HtmlHelpA}

function HtmlHelpW; external hhctrl Name 'HtmlHelpW';

{$EXTERNALSYM HtmlHelpW}

function HtmlHelp; external hhctrl Name 'HtmlHelpA';

{$EXTERNALSYM HtmlHelp}

{$ENDIF}

{ THTMLHelp }

constructor THTMLHelp.Create(AOwner:TComponent);

begin

inherited Create(AOwner);

FFileName := '';

FWinDef := '';

FOldHelpEvent := Application.OnHelp;

if not (csdesigning in ComponentState) then Application.OnHelp := HelpFunc;

end;

destructor THTMLHelp.Destroy;

begin

Application.OnHelp := FOldHelpEvent;

inherited destroy;

end;

function THtmlHelp.getHHString(Topic: String): String;

begin

Result := FileName;

if Length(Topic)>0 then

Result := Result + '::' + Topic;

if Length(WinDef)>0 then

Result := Result + '>' + WinDef;

end;

function THTMLHelp.HelpFunc(Command : Word; Data : Longint; Var CallHelp : Boolean) : Boolean;

begin

CallHelp := False;

if (Command in [Help_Context, Help_ContextPopup]) then

begin

CallHelp := false;

HelpContext( Data );

end

else if Command=HELP_Finder then

DoHtmlHelp(HH_DISPLAY_TOC, 0);

Result := true;

end;

function THTMLHelp.DoHtmlHelp(uCommand: UINT; dwData: DWORD): HWND;

begin

if (FileName='') or not FileExists(FileName) then Exit;

Result := HtmlHelp(Application.Handle, PChar(GetHHString('')), uCommand, dwData);

end;

function THTMLHelp.GetFileName: String;

begin

if not (csdesigning in componentstate) then

begin

if FFileName='' then FFileName := Application.Helpfile;

if ExtractFilePath(FFileName)='' then

FFileName:= ExtractFilePath(Application.Exename) + FFileName;

if not FileExists(FFileName) then

FFileName := ExtractFilePath(Application.Exename) + 'help.chm';

end;

Result := FFileName;

end;

function THTMLHelp.HelpContext(ContextId: DWord): Integer;

begin

Result := DoHtmlHelp(HH_HELP_CONTEXT, ContextID);

end;

function THTMLHelp.HelpTopic(Topic: String): Integer;

begin

Result := DoHtmlHelp(HH_DISPLAY_TOPIC, 0);

end;

function THTMLHelp.ShowIndex: Integer;

begin

Result := DoHtmlHelp(HH_DISPLAY_INDEX, 0);

end;

function THTMLHelp.ShowTableofContents: Integer;

begin

Result := DoHtmlHelp(HH_DISPLAY_TOC, 0);

end;

function THTMLHelp.ShowSearch: integer;

var

q:THHFTSQUERY;

begin

q.cbStruct:=sizeof(q);

q.fUniCodeStrings:=false;

q.pszSearchQuery:=nil;

q.iProximity:=HH_FTS_DEFAULT_PROXIMITY;

q.fStemmedSearch := FALSE ;

q.fTitleOnly := FALSE ;

q.fExecute := True ;

q.pszWindow := nil ;

Result := DoHtmlHelp(HH_DISPLAY_SEARCH, DWord(@q));

end;

{$IFDEF HTMLHELP_DYNAMIC_LINK}

initialization

{$IFNDEF HTMLHELP_DYNAMIC_LINK_EXPLICIT}

LoadHtmlHelp;

{$ENDIF}

finalization

UnLoadHtmlHelp;

if Assigned(Helper) then Helper.Free;

{$ENDIF}

end.

posted @ 2008-06-08 22:37 陆岛工作室阅读(1514) 评论(1) 编辑收藏举报

会员力量，点亮园子希望

刷新页面返回顶部

陆岛工作室

XOtec Studio -- 陆岛工作室。软件设计、开发心得与资料收集园区。欢迎朋友们来交流

原创: 自己收集整理的 DELPHI 中控制与使用HMTL帮助文件的单元代码。

公告