Attribute VB_Name = "modHelpChm"
' -------------------------------------------------------------------------------
'
'   AVStoDVD - by MrC
'   File: modHelpChm.bas
'   Purpose: Chm Help file utilities
'
' -------------------------------------------------------------------------------


Option Explicit
Option Compare Binary
Option Base 0

Public Const HH_DISPLAY_TOPIC = &H0
Public Const HH_SET_WIN_TYPE = &H4
Public Const HH_GET_WIN_TYPE = &H5
Public Const HH_GET_WIN_HANDLE = &H6
Public Const HH_DISPLAY_TEXT_POPUP = &HE   ' Display string resource ID or text in a pop-up window.
Public Const HH_HELP_CONTEXT = &HF         ' Display mapped numeric value in dwData.
Public Const HH_TP_HELP_CONTEXTMENU = &H10 ' Text pop-up help, similar to WinHelp's HELP_CONTEXTMENU.
Public Const HH_TP_HELP_WM_HELP = &H11     ' text pop-up help, similar to WinHelp's HELP_WM_HELP.

Declare Function HtmlHelp Lib "hhctrl.ocx" Alias "HtmlHelpA" (ByVal hwndcaller As Long, ByVal pszFile As String, ByVal uCommand As Long, ByVal dwdata As Long) As Long


Public Sub HH_Help_Call(ByVal ContextID As Long, ByVal Par_hWnd As Long)

    Dim hwndHelp As Long

    hwndHelp = HtmlHelp(Par_hWnd, App.HelpFile, HH_HELP_CONTEXT, ContextID)

End Sub



