delphihtmlhelp1.pas

胜天财务进销存2003源代码,SQLSERVER版,目前最完整的财务进销存系统.

{
function HtmlHelp_(strFile: string): HWND;
打开Html帮助文件。StrFile:文件路径。反回窗口句柄。
例：
	HtmlHelp_('e:\企业会计准则.chm::/存货.htm');
	procedure CloseHtmlHelpSystem;
关闭帮忙。
}
unit DelphiHtmlHelp1;
interface
uses Windows,Forms;
const
  // Commands to pass to HtmlHelp()
  HH_DISPLAY_TOPIC = $0000;
  HH_HELP_FINDER = $0000; // WinHelp equivalent
  HH_DISPLAY_TOC = $0001; // not currently implemented
  HH_DISPLAY_INDEX = $0002; // not currently implemented
  HH_DISPLAY_SEARCH = $0003; // not currently implemented
  HH_SET_WIN_TYPE = $0004;
  HH_GET_WIN_TYPE = $0005;
  HH_GET_WIN_HANDLE = $0006;
  HH_ENUM_INFO_TYPE = $0007; // Get Info type name, call repeatedly to enumerate, -1 at end
  HH_SET_INFO_TYPE = $0008; // Add Info type to filter.
  HH_SYNC = $0009;
  HH_RESERVED1 = $000A;
  HH_RESERVED2 = $000B;
  HH_RESERVED3 = $000C;
  HH_KEYWORD_LOOKUP = $000D;
  HH_DISPLAY_TEXT_POPUP = $000E; // display string resource id or text in a popup window
  HH_HELP_CONTEXT = $000F; // display mapped numeric value in dwData
  HH_TP_HELP_CONTEXTMENU = $0010; // text popup help, same as WinHelp HELP_CONTEXTMENU
  HH_TP_HELP_WM_HELP = $0011; // text popup help, same as WinHelp HELP_WM_HELP
  HH_CLOSE_ALL = $0012; // close all windows opened directly or indirectly by the caller
  HH_ALINK_LOOKUP = $0013; // ALink version of HH_KEYWORD_LOOKUP
  HH_GET_LAST_ERROR = $0014; // not currently implemented // See HHERROR.h
  HH_ENUM_CATEGORY = $0015; // Get category name, call repeatedly to enumerate, -1 at end
  HH_ENUM_CATEGORY_IT = $0016; // Get category info type members, call repeatedly to enumerate, -1 at end
  HH_RESET_IT_FILTER = $0017; // Clear the info type filter of all info types.
  HH_SET_INCLUSIVE_FILTER = $0018; // set inclusive filtering method for untyped topics to be included in display
  HH_SET_EXCLUSIVE_FILTER = $0019; // set exclusive filtering method for untyped topics to be excluded from display
  HH_INITIALIZE = $001C; // Initializes the help system.
  HH_UNINITIALIZE = $001D; // Uninitializes the help system.
  HH_PRETRANSLATEMESSAGE = $00FD; // Pumps messages. (NULL, NULL, MSG*).
  HH_SET_GLOBAL_PROPERTY = $00FC; // Set a global property. (NULL, NULL, HH_GPROP)

  HHWIN_PROP_TAB_AUTOHIDESHOW = (1 shl 0); // Automatically hide/show tri-pane window
  HHWIN_PROP_ONTOP = (1 shl 1); // Top-most window
  HHWIN_PROP_NOTITLEBAR = (1 shl 2); // no title bar
  HHWIN_PROP_NODEF_STYLES = (1 shl 3); // no default window styles (only HH_WINTYPE.dwStyles)
  HHWIN_PROP_NODEF_EXSTYLES = (1 shl 4); // no default extended window styles (only HH_WINTYPE.dwExStyles)
  HHWIN_PROP_TRI_PANE = (1 shl 5); // use a tri-pane window
  HHWIN_PROP_NOTB_TEXT = (1 shl 6); // no text on toolbar buttons
  HHWIN_PROP_POST_QUIT = (1 shl 7); // post WM_QUIT message when window closes
  HHWIN_PROP_AUTO_SYNC = (1 shl 8); // automatically ssync contents and index
  HHWIN_PROP_TRACKING = (1 shl 9); // send tracking notification messages
  HHWIN_PROP_TAB_SEARCH = (1 shl 10); // include search tab in navigation pane
  HHWIN_PROP_TAB_HISTORY = (1 shl 11); // include history tab in navigation pane
  HHWIN_PROP_TAB_FAVORITES = (1 shl 12); // include favorites tab in navigation pane
  HHWIN_PROP_CHANGE_TITLE = (1 shl 13); // Put current HTML title in title bar
  HHWIN_PROP_NAV_ONLY_WIN = (1 shl 14); // Only display the navigation window
  HHWIN_PROP_NO_TOOLBAR = (1 shl 15); // Don't display a toolbar
  HHWIN_PROP_MENU = (1 shl 16); // Menu
  HHWIN_PROP_TAB_ADVSEARCH = (1 shl 17); // Advanced FTS UI.
  HHWIN_PROP_USER_POS = (1 shl 18); // After initial creation, user controls window size/position
  HHWIN_PROP_TAB_CUSTOM1 = (1 shl 19); // Use custom tab #1
  HHWIN_PROP_TAB_CUSTOM2 = (1 shl 20); // Use custom tab #2
  HHWIN_PROP_TAB_CUSTOM3 = (1 shl 21); // Use custom tab #3
  HHWIN_PROP_TAB_CUSTOM4 = (1 shl 22); // Use custom tab #4
  HHWIN_PROP_TAB_CUSTOM5 = (1 shl 23); // Use custom tab #5
  HHWIN_PROP_TAB_CUSTOM6 = (1 shl 24); // Use custom tab #6
  HHWIN_PROP_TAB_CUSTOM7 = (1 shl 25); // Use custom tab #7
  HHWIN_PROP_TAB_CUSTOM8 = (1 shl 26); // Use custom tab #8
  HHWIN_PROP_TAB_CUSTOM9 = (1 shl 27); // Use custom tab #9
  HHWIN_TB_MARGIN = (1 shl 28); // the window type has a margin

  HHWIN_PARAM_PROPERTIES = (1 shl 1); // valid fsWinProperties
  HHWIN_PARAM_STYLES = (1 shl 2); // valid dwStyles
  HHWIN_PARAM_EXSTYLES = (1 shl 3); // valid dwExStyles
  HHWIN_PARAM_RECT = (1 shl 4); // valid rcWindowPos
  HHWIN_PARAM_NAV_WIDTH = (1 shl 5); // valid iNavWidth
  HHWIN_PARAM_SHOWSTATE = (1 shl 6); // valid nShowState
  HHWIN_PARAM_INFOTYPES = (1 shl 7); // valid apInfoTypes
  HHWIN_PARAM_TB_FLAGS = (1 shl 8); // valid fsToolBarFlags
  HHWIN_PARAM_EXPANSION = (1 shl 9); // valid fNotExpanded
  HHWIN_PARAM_TABPOS = (1 shl 10); // valid tabpos
  HHWIN_PARAM_TABORDER = (1 shl 11); // valid taborder
  HHWIN_PARAM_HISTORY_COUNT = (1 shl 12); // valid cHistory
  HHWIN_PARAM_CUR_TAB = (1 shl 13); // valid curNavType

  HHWIN_BUTTON_EXPAND = (1 shl 1); // Expand/contract button
  HHWIN_BUTTON_BACK = (1 shl 2); // Back button
  HHWIN_BUTTON_FORWARD = (1 shl 3); // Forward button
  HHWIN_BUTTON_STOP = (1 shl 4); // Stop button
  HHWIN_BUTTON_REFRESH = (1 shl 5); // Refresh button
  HHWIN_BUTTON_HOME = (1 shl 6); // Home button
  HHWIN_BUTTON_BROWSE_FWD = (1 shl 7); // not implemented
  HHWIN_BUTTON_BROWSE_BCK = (1 shl 8); // not implemented
  HHWIN_BUTTON_NOTES = (1 shl 9); // not implemented
  HHWIN_BUTTON_CONTENTS = (1 shl 10); // not implemented
  HHWIN_BUTTON_SYNC = (1 shl 11); // Sync button
  HHWIN_BUTTON_OPTIONS = (1 shl 12); // Options button
  HHWIN_BUTTON_PRINT = (1 shl 13); // Print button
  HHWIN_BUTTON_INDEX = (1 shl 14); // not implemented
  HHWIN_BUTTON_SEARCH = (1 shl 15); // not implemented
  HHWIN_BUTTON_HISTORY = (1 shl 16); // not implemented
  HHWIN_BUTTON_FAVORITES = (1 shl 17); // not implemented
  HHWIN_BUTTON_JUMP1 = (1 shl 18);
  HHWIN_BUTTON_JUMP2 = (1 shl 19);
  HHWIN_BUTTON_ZOOM = (1 shl 20);
  HHWIN_BUTTON_TOC_NEXT = (1 shl 21);
  HHWIN_BUTTON_TOC_PREV = (1 shl 22);


  HHWIN_DEF_BUTTONS = (HHWIN_BUTTON_EXPAND or
    HHWIN_BUTTON_BACK or
    HHWIN_BUTTON_OPTIONS or
    HHWIN_BUTTON_PRINT);

// Button IDs
  IDTB_EXPAND = 200;
  IDTB_CONTRACT = 201;
  IDTB_STOP = 202;
  IDTB_REFRESH = 203;
  IDTB_BACK = 204;
  IDTB_HOME = 205;
  IDTB_SYNC = 206;
  IDTB_PRINT = 207;
  IDTB_OPTIONS = 208;
  IDTB_FORWARD = 209;
  IDTB_NOTES = 210; // not implemented
  IDTB_BROWSE_FWD = 211;
  IDTB_BROWSE_BACK = 212;
  IDTB_CONTENTS = 213; // not implemented
  IDTB_INDEX = 214; // not implemented
  IDTB_SEARCH = 215; // not implemented
  IDTB_HISTORY = 216; // not implemented
  IDTB_FAVORITES = 217; // not implemented
  IDTB_JUMP1 = 218;
  IDTB_JUMP2 = 219;
  IDTB_CUSTOMIZE = 221;
  IDTB_ZOOM = 222;
  IDTB_TOC_NEXT = 223;
  IDTB_TOC_PREV = 224;

// Notification codes
  HHN_FIRST = (0 - 860);
  HHN_LAST = (0 - 879);

  HHN_NAVCOMPLETE = (HHN_FIRST - 0);
  HHN_TRACK = (HHN_FIRST - 1);
  HHN_WINDOW_CREATE = (HHN_FIRST - 2);

type
  tagHHN_NOTIFY = record
    hdr: NMHDR;
    pszUrl: PChar; // Multi-byte, null-terminated string
  end;
  HHN_NOTIFY = tagHHN_NOTIFY;

  tagHH_POPUP = record
    cbStruct: integer; // sizeof this structure
    hinst: longint; // 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: COLORREF; // use -1 for default
    clrBackground: COLORREF; // 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;

  HH_POPUP = tagHH_POPUP;

  tagHH_AKLINK = 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;
  HH_AKLINK = tagHH_AKLINK;

const
  HHWIN_NAVTYPE_TOC = 0;
  HHWIN_NAVTYPE_INDEX = 1;
  HHWIN_NAVTYPE_SEARCH = 2;
  HHWIN_NAVTYPE_FAVORITES = 3;
  HHWIN_NAVTYPE_HISTORY = 4; // not implemented
  HHWIN_NAVTYPE_AUTHOR = 5;
  HHWIN_NAVTYPE_CUSTOM_FIRST = 11;

  IT_INCLUSIVE = 0;
  IT_EXCLUSIVE = 1;
  IT_HIDDEN = 2;

type
  tagHH_ENUM_IT = 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;

  HH_ENUM_IT = tagHH_ENUM_IT;
  PHH_ENUM_IT = ^tagHH_ENUM_IT;

  tagHH_ENUM_CAT = record
    cbStruct: integer; // size of this structure
    pszCatName: LPCSTR; // volitile pointer to the category name
    pszCatDescription: LPCSTR; // volitile pointer to the category description
  end;

  HH_ENUM_CAT = tagHH_ENUM_CAT;
  PHH_ENUM_CAT = ^tagHH_ENUM_CAT;

  tagHH_SET_INFOTYPE = record
    cbStruct: integer; // the size of this structure