FiveTech Software tech support forums

Posted: **Wed Jun 24, 2009 10:11 pm**

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

Posted: **Thu Jun 25, 2009 6:50 pm**

Amigos...

Alguna ayudita o sugerencia.

Saludos

Adhemar

Posted: **Fri Jun 26, 2009 12:14 pm**

Para apagar la pc podrias hacer :

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

Saludos!

Posted: **Fri Jun 26, 2009 2:14 pm**

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

Ronaldo

Posted: **Fri Jun 26, 2009 2:42 pm**

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

Posted: **Fri Jun 26, 2009 5:56 pm**

elimine o VALID da window...

Code: Select all

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

Posted: **Fri Jun 26, 2009 6:15 pm**

Gracias Distinguido Yuri

Funciona perfecto.

Antes no le entendi a Ronaldo

Se le agradece mucho a todos

Saludos

Adhemar

FiveTech Software tech support forums

No apaga con programa que tiene TIMER

No apaga con programa que tiene TIMER

Re: No apaga con programa que tiene TIMER

Re: No apaga con programa que tiene TIMER

Re: No apaga con programa que tiene TIMER

Re: No apaga con programa que tiene TIMER

Re: No apaga con programa que tiene TIMER

Re: No apaga con programa que tiene TIMER