Hola gente:

Estoy teniendo un problema con una aplicación que está corriendo en el System Tray y se quiere cerrar la sesión de Windows o bien, reiniciar o apagar el equipo.

Lo que ocurre es que al dar la orden de Cerrar Sesion, Reiniciar o Apagar, la aplicación VFP que esta corriendo en el SysTray se cierra bien, pero la sesión de Windows sigue activa, me explico?? Es decir que para cerrar la sesión debo hacer "Inicio/Cerrar Sesion" 2 veces.
Yo creo que el problema está en On Shutdown, pero no le encuentro la vuelta.

Aca mando el código: hagan un PRG, ejecútenlo (DO xxx.prg) y luego cierren Windows.

_Screen.Visible = .F.
SET TALK OFF
SET CONFIRM ON
SET ESCAPE OFF
SET DELETED ON
SET EXCLUSIVE OFF
SET MULTILOCKS ON
SET SYSFORMATS ON
ON SHUTDOWN Clear Events
LOCAL oST
oST = CREATEOBJECT( "mySysTray" )
READ EVENTS
ON SHUTDOWN
CLOSE ALL
CLEAR ALL
Quit

*****************************

DEFINE CLASS mySysTray AS Systray OF HOME()+"\Samples\Solution\Toledo\Systray.vcx"
    IconFile = HOME() + "\Graphics\Icons\Misc\face02.ico"
    TipText = "Prueba de SysTray"

    PROCEDURE IconDblClickEvent
        IF MESSAGEBOX("Desea Cerrar?",4+32+256,"Prueba de SysTray")=6
            CLEAR EVENTS
        ENDIF
    ENDPROC
ENDDEFINE

NOTA: Solo funciona con VFP8 - Por otro lado cuento que tengo instalado WinXP Prof. SP1 y todas las actualizaciones.

Gracias de antemano
Saludos