Page 1 of 1

No apaga con programa que tiene TIMER

Posted: Wed Jun 24, 2009 10:11 pm
by 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

Re: No apaga con programa que tiene TIMER

Posted: Thu Jun 25, 2009 6:50 pm
by acuellar
Amigos...

Alguna ayudita o sugerencia.


Saludos

Adhemar

Re: No apaga con programa que tiene TIMER

Posted: Fri Jun 26, 2009 12:14 pm
by TecniSoftware
Para apagar la pc podrias hacer :

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


Saludos!

Re: No apaga con programa que tiene TIMER

Posted: Fri Jun 26, 2009 2:14 pm
by ronaldo
veja se você não esta utilizando o VALID na WINDOW?

Ronaldo

Re: No apaga con programa que tiene TIMER

Posted: Fri Jun 26, 2009 2:42 pm
by 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

Re: No apaga con programa que tiene TIMER

Posted: Fri Jun 26, 2009 5:56 pm
by yury
elimine o VALID da window...

Code: Select all

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

Re: No apaga con programa que tiene TIMER

Posted: Fri Jun 26, 2009 6:15 pm
by acuellar
Gracias Distinguido Yuri

Funciona perfecto.

Antes no le entendi a Ronaldo

Se le agradece mucho a todos

Saludos

Adhemar