Necesito una ide

Gracias por el codigo, ya lo he puesto en funcionamiento y anda ok, muchas
gracias...

Dario

FUNCTION ReleaseForms
local lnForms, llDone, lcBase
lnForms = _SCREEN.FormCount
llDone = .T.
DO WHILE lnForms > 0 AND llDone
IF TYPE("_screen.Forms(lnForms)") == "O"
lcBase = _screen.Forms(lnForms).BaseClass
IF lcBase == "Form"
_SCREEN.Forms(lnForms).Hide()
llDone = _SCREEN.Forms(lnForms).QueryUnload()
IF llDone
_SCREEN.Forms(lnForms).Release
lnForms = lnForms - 1
ENDIF
ELSE
lnForms = lnForms - 1
ENDIF
ELSE
lnForms = lnForms - 1
ENDIF
_screen.Refresh()
ENDDO
ENDFUNC


"Dario David Puccio" escribió en el mensaje
news:

Quiero hacer un cierre y salida automatico mediante una tecla de funcion
para casos de emergencia.
He conseguido salir mediante el onshutdown, pero quierom agregar al codigo
que lanza el cierre de todo formulario que se encuentre activo, luego hace
el cierre de tablas, copias de seguridad etc.
Como puedo hacer para lograr el cierre de los formularios activos?

Gracias por toda idea