Hola, en un momento un socio hizo esta consulta y queria
saber si alguien sabe como solucionarlo ya que tengo el mismo problema.
muchas gracias
----- Original Message -----
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.
Saludos,
Esteban Bruno
I'm protected by SpamBrave
http://www.spambrave.com/
