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
HtmlHelp выводит окно справки
Возвращает описатель окна справки или 0
HH_DISPLAY_TOPIC = &H0 |
Const HH_DISPLAY_TOC = &H1 |
Const HH_CLOSE_ALL = &H12 |
' Вызываем справочный файл из программы
Dim hwndHelp As Long
hwndHelp = HtmlHelp(hWnd, "c:\guide.chm", HH_DISPLAY_TOPIC, 0)