&&1. Si la aplicación se compone de un form... se escribe este PRG, && que llamará a dicho form, esto && quiere decir que este prg será configurado como SetMain en el proyecto.. declare integer ShowWindow IN WIN32API ; &&Declaración de funciones de Wind API Integer nWnd,; Integer nCmdShow declare integer FindWindow IN WIN32API ; STRING cClassName,; STRING cWindName nMainWin = FindWindow( 0, _SCREEN.Caption) &&&encontrar el handle de la ventana de visual Fox =ShowWindow(nMainWin,0) && Ocultar la ventana de Fox do form miform &&&llamar al form && este form debe tener : Desktop=.T. y AlwaysOnTop=.T. quit && fin del prog ************************************************************************************************** &&2. Si la aplicacion consiste en un menú (mpr) : declare integer ShowWindow IN WIN32API ; &&Declaración de funciones de Wind API Integer nWnd,; Integer nCmdShow declare integer FindWindow IN WIN32API ; STRING cClassName,; STRING cWindName nMainWin = FindWindow( 0, _SCREEN.Caption) &&&encontrar el handle de la ventana de visual Fox =ShowWindow(nMainWin,0) && Ocultar la ventana de Fox MODIFY WINDOW SCREEN TITLE ......etc. =ShowWindow(nMainWin,3) && Muestra maximizada la ventana de VFP para recepcionar el menu do menup.mpr && Llamar al menú quit && Fin del programa &&& si es que hay algun posible form a ser invocado antes de invocar al menu. &&& (por ejemplo : pedir username y password o tratamiento de errores). &&& se debe tener en cuenta de colocar Desktop=.T. y AlwaysOnTop=.T. en dicho form, &&& además en el procedimiento init colocar : declare integer FindWindow IN WIN32API ; STRING cClassName,; STRING cWindName DECLARE SetForegroundWindow in WIN32API; Integer nHwnd nUser=FindWindow(0,thisform.caption) =SetForegroundWindow(nUser) && lo que obligará a mostrar esta ventana && también hay que recordar que todo esto se hace con el fin de ocultar/mostrar ventanas.. && que es muy diferente a terminar la aplicación ... && (en estos forms se podría dar por finalizada la aplicación sin entrar al menu). && Deberá verificar en los casos que Ud. crea conveniente si el programa realmente terminó, && revisando la lista de tareas de Windows, con Ctr+Alt+Del &&& Roy Torres Díaz &&& Trujillo - Perú &&& royt@aqp.com.pe