Ejecutable de vfp 6.0
Tengo un sistema en VFP 6.0; genero el ejecutable, pero al correrlo lo hace dentro de una ventana de VFP que además al salir de la aplicación no puedo cerrar ésta ventana, envía un mensaje de error indicando que no puede salir de foxpro.
Que es lo que tengo que hacer para que el sistema se ejecute de manera "normal" y no dentro de esa ventana de Fox.
Por lo demás la aplicación funciona correctamente.
Agradezco la ayuda que puedan brindarme.
Que es lo que tengo que hacer para que el sistema se ejecute de manera "normal" y no dentro de esa ventana de Fox.
Por lo demás la aplicación funciona correctamente.
Agradezco la ayuda que puedan brindarme.
1 respuesta
Respuesta de juposa
1
Supongo que estas generando un exe desde un proyecto...
Te recomiendo que leas esto,
http://www.foxcarlos.8k.com/P48.HTM
Suerte
Te recomiendo que leas esto,
http://www.foxcarlos.8k.com/P48.HTM
Suerte
Te agradezco la información y la ayuda
Te agradezco la ayuda que me has proporcionado.
Leí la página que me recomiendas, pero tengo aún algunas dudas.
Efectivamente estoy generando el ejecutable desde un proyecto.
Por lo que ahora entiendo, la pantalla a la que hago mención es la pantalla principal de VFP, ¿es necesario que el ejecutable corra en esa pantalla, o ésta se puede omitir?
Si es que la pantalla es parte del ejecutable,¿por qué al salir del sistema está pantalla queda activa y no puedo cerrarla?
Te agradezco de nuevo la ayuda y la paciencia.
Leí la página que me recomiendas, pero tengo aún algunas dudas.
Efectivamente estoy generando el ejecutable desde un proyecto.
Por lo que ahora entiendo, la pantalla a la que hago mención es la pantalla principal de VFP, ¿es necesario que el ejecutable corra en esa pantalla, o ésta se puede omitir?
Si es que la pantalla es parte del ejecutable,¿por qué al salir del sistema está pantalla queda activa y no puedo cerrarla?
Te agradezco de nuevo la ayuda y la paciencia.
En la opción Salir de tu menu coloca esto: =FuncSalir()
En un archivo de procedures que tengas en tu proyecto colocas este código:
FUNCTION FuncSalir
*
If MessageBox("Seguro de Salir",4+32+256,"Aviso") = 6
clear events
CLOSE ALL
Clear all
SET SYSMENU TO DEFAULT
Cancel
Return
Endif
KEYBOARD '{DNARROW}'
ACTIVATE MENU _MSYSMENU PAD _rlz0rtvmv
Y pruebas...
Suerte
En un archivo de procedures que tengas en tu proyecto colocas este código:
FUNCTION FuncSalir
*
If MessageBox("Seguro de Salir",4+32+256,"Aviso") = 6
clear events
CLOSE ALL
Clear all
SET SYSMENU TO DEFAULT
Cancel
Return
Endif
KEYBOARD '{DNARROW}'
ACTIVATE MENU _MSYSMENU PAD _rlz0rtvmv
Y pruebas...
Suerte
