Ejecutar *.hlp con shell
Hola amigo.. Mi pregunta sera super sencilla para ti... Tengo que hacer una pequeña aplicación, pero mi problema viene acá: tengo un comando (command1) de titulo ayuda, lo que tiene que hacer es ejecutarme el *.hlp obviamente dinámicamente... Mi problema es como concateno el winhelp.exe con la variable ls_ruta... Ejemplo:
Dim ls_ruta, id
ls_ruta = App.Path + "\RECEPCION.HLP"
id = Shell("WinHelp.Exe' + 'ls_ruta", 1)
Obviamente entenderás esto...
Me manda error, ayudame please...
He visto en la red también que se puede hacer mediante un API.
Declare Function WinHelp Lib "user32" Alias "WinHelpA" (ByVal hwnd As Long, ByVal lpHelpFile As String, ByVal wCommand As Long, ByVal dwData As Any) As Long
Pero tampoco me sale...
Nota.- No deseo utilizar el command dialogue (porque tendría que registrar el *.ocx), se también que a través de los instaladores lo haría, pero no deseo de esa forma... Espero me hayas entendido...
Se que estoy fallando, pero por favor te agradecería mucho que me ayudaras,... Saludos desde perú...
Ruego respuesta pronta por favor...
Dim ls_ruta, id
ls_ruta = App.Path + "\RECEPCION.HLP"
id = Shell("WinHelp.Exe' + 'ls_ruta", 1)
Obviamente entenderás esto...
Me manda error, ayudame please...
He visto en la red también que se puede hacer mediante un API.
Declare Function WinHelp Lib "user32" Alias "WinHelpA" (ByVal hwnd As Long, ByVal lpHelpFile As String, ByVal wCommand As Long, ByVal dwData As Any) As Long
Pero tampoco me sale...
Nota.- No deseo utilizar el command dialogue (porque tendría que registrar el *.ocx), se también que a través de los instaladores lo haría, pero no deseo de esa forma... Espero me hayas entendido...
Se que estoy fallando, pero por favor te agradecería mucho que me ayudaras,... Saludos desde perú...
Ruego respuesta pronta por favor...
1 Respuesta
Respuesta de denciso
1
No te funciona el colocar la ayuda de cada control o de cada elemento en las propiedades del mismo.
Tus líneas:
Dim ls_ruta, id
ls_ruta = App.Path + "\RECEPCION.HLP"
id = Shell("WinHelp.Exe' + 'ls_ruta", 1)
deberían ser:
Dim ls_ruta, id
ls_ruta = App.Path + "\RECEPCION.HLP"
id = Shell("WinHelp.Exe " & ls_ruta, 1)
Tus líneas:
Dim ls_ruta, id
ls_ruta = App.Path + "\RECEPCION.HLP"
id = Shell("WinHelp.Exe' + 'ls_ruta", 1)
deberían ser:
Dim ls_ruta, id
ls_ruta = App.Path + "\RECEPCION.HLP"
id = Shell("WinHelp.Exe " & ls_ruta, 1)
