Mensaje enviado por "Marger" <marteaga@xerox.com.ni>

Hola Amigos:

Estas son las rutinas para Ejecutar los Archivos .CHM desde Visual.. espero
les sirva.


Saludes

Marger Arteaga V.
Economista.
Nicaragua.


Declarar las siguientes API

Private Declare Function HTMLHelp Lib "hhctrl.ocx"
    Alias "HtmlHelpA" (ByVal hwnd As Long, _
    ByVal lpHelpFile As String, _
    ByVal wCommand As Long, _
    ByVal dwData As Long) As Long

Donde
Hwnd= el Handle de la Ventana.
lpHelpFile=Ruta y nombre del Archivo .chm
wCommand=Comando de Ejecución equivalentes al WinHelp
dwData=Topic ID del Archivo

Constantes de Winhelp
Private Const HH_DISPLAY_TOPIC = &H0
Private Const HH_DISPLAY_TOC = &H1
Private Const HH_DISPLAY_INDEX = &H2
Private Const HH_DISPLAY_SEARCH = &H3

Llamar al Help

Public sub HelpFile()
    Dim vrRet
    vrRet=HTMLHelp(me.Hwnd, RutaArchivoChm, HH_DISPLAY_TOPIC, IDTopic)
'Llama al Topico Especifico

vrRet=HTMLHelp(me.Hwnd, RutaArchivoChm, HH_DISPLAY_TOC, 0) 'Llama la Tabla
de Contenido

vrRet=HTMLHelp(me.Hwnd, RutaArchivoChm, HH_DISPLAY_INDEX, 0) 'Llama al Indice