FoxPro/Visual FoxPro - LLAMAR AYUDA CON TECLA F1

   
Vista:

LLAMAR AYUDA CON TECLA F1

Publicado por HELDER (COUNDY) (710 intervenciones) el 02/09/2009 18:15:47
HICE UNA AYUDA EN HELP WORKSHOP HTML.

CUANDO LA LLAMO DESDE LA VENTANA DE COMANDOS FUNCIONA BIEN Y ME ABRE MI AYUDA NORMAL.
SET HELP ON
SET HELP TO "c:hardw_inventayudaayuda.chm"
HELP

PERO CUANDO LO DESEO LLAMAR PRECIONANDO LA TECLA F1 DESDE UN FORM PONGO ESTO Y NO FUNCIONA:
IF nKeyCode = 28
SET HELP ON
SET HELP TO "c:hardw_inventayudaayuda.chm"
HELP
ENDIF
SOLAMENTE ME ABRE LA AYUDA DE VFP9.

CUANDO PONGO ESTO EN UN BOTON DE COMANDO SI ME ABRE LA AYUDA QUE QUIERO.
SET HELP ON
SET HELP TO "c:hardw_inventayudaayuda.chm"
HELP

COMO PUEDO EVITAR ESTO?

SALUDES DESDE YA.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:LLAMAR AYUDA CON TECLA F1

Publicado por Oscar Ramirez (37 intervenciones) el 03/09/2009 03:20:03
debes escribir esto:

declare long ShellExecute in "shell32.dll" ;
long hwnd, ;
string lpszOp, ;
string lpszFile, ;
string lpszParams, ;
string lpszDir, ;
long nShowCmd

declare long GetDesktopWindow in "win32api"
declare long GetForegroundWindow in "win32api"

declare integer HtmlHelp in hhctrl.ocx ;
long hwndCaller, ;
string pszFile, ;
long uCommand, ;
long dwData

local hDCScreen

Main = GetForegroundWindow()
gcHomeDir="C:CARPETARAIZ"

p_pszFile=(gcHomeDir)+"MiAyuda.chm"

mHelpW = HtmlHelp(hDCScreen, p_pszFile, 0, 0)

y listo te funciona.....suerte
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar