No apaga con programa que tiene TIMER

[acuellar]

Hola a todos

Tengo un programa oculto con un timer que recuerda las tareas pendientes, funciona bien, el problema es que no deja apagar el computador.
Aqui el código para que me ayuden:

Code: Select all

#Include "FiveWin.ch"

FUNCTION Main()
   Private oWnd,oTimer,lSalir:=.F.,xBdr:=0

   DEFINE WINDOW oWnd FROM 0,1 TO 0,1 STYLE WS_POPUP
       
   ACTIVATE WINDOW oWnd ON INIT (Muestra(),TimerOn(oWnd),oWnd:Hide()) VALID lSalir
  oTimer:end()
  
Return Nil
*
Static Function TimerOn(oWnd)
  
  DEFINE TIMER oTimer INTERVAL 10000 ACTION Muestra()
    
  ACTIVATE TIMER oTimer
  xBdr:=1
Return(nil)
*
Static Function Muestra()
       Local cMensaje:="",vBdr:=0
    
       If xBdr=1
          oTimer:DeActivate()
       Endi
       
       IF MsgNoYes("INFORMATICA TIENE:"+CRLF+"2 Tareas Pendientes"+CRLF+"Desea que le recuerde en 1 hora?" +CRLF, "Recordar " )
          lSalir:=.F.
          If xBdr=1
             oTimer:Activate()
          Endi
       Else 
           lSalir:=.T.
          oWnd:End()
      Endi
          
Return(nil)

 

Desde ya muchas gracias por sus respuestas

Saludos

Adhemar

[acuellar]

Amigos...

Alguna ayudita o sugerencia.


Saludos

Adhemar

[TecniSoftware]

Para apagar la pc podrias hacer :

ShellExecute( 0, "Open", "C:\Windows\System32\ShutDown.exe", " -s", 0, 1 )


Saludos!

[ronaldo]

veja se você não esta utilizando o VALID na WINDOW?

Ronaldo

[acuellar]

Gracias Distinguidos

Ya habia probado con ShutDown desde el Ejecutar, pero no funciona
No siempre se querra apagar, puede ser que quiera reiniciar o cambiar de sesión.

He encontrado un programa KillProc.exe, el cual he colocado en un .BAT en el escritorio el cual tienen que ejecutar antes de apagar, reiniciar o cambiar de sesión.

Tengo una idea como el programa esta corriendo, como puedo hace para que con una combinacion de teclas por decir Alt-S pueda desactivar el timer y cerrar el programa.
En que parte del código debo colocar y como?

Gracias una vez mas por sus aportes

Saludos cordiales

Adhemar

[yury]

elimine o VALID da window...

Code: Select all

ACTIVATE WINDOW oWnd ON INIT (Muestra(),TimerOn(oWnd),oWnd:Hide()) // VALID lSalir
 

[acuellar]

Gracias Distinguido Yuri

Funciona perfecto.

Antes no le entendi a Ronaldo

Se le agradece mucho a todos

Saludos

Adhemar