Salida automatica de aplicación

[Albano]

Con todo respeto Sudamericano, creo que tu reacción es exagerada, todo este relajo por el simple comentario de 1-0-0? Eso es algo que a mi en lo personal, me causó gracia y me animó a seguir contestando (es de las primeras veces que puedo sentir que ayudo en este foro)... Creo que eso es lo que hace a este foro el mejor de Delphi, la manera en que nos comunicamos y la confianza que hay... También creo que tus respuestas Sudamericano, nos desviaron mas del tema que el simple comentario que hizo dec.
A mi me gusta el estilo que tiene dec en sus respuestas.

[Sudamericano]

La unica intención que tengo con mis comentarios es fomentarles mayor profesionalismo, mayor seriedad en el desarrollo del software, y de alguna manera en este foro, seguro no tengo ningún derecho de hacerlo pues participo muy poco en realidad, pero cuando lo hago procuro dar soluciones concretas, por otro lado la disciplina y seriedad los llevara lejos , no tengo idea de las edades de ustedes ni si se dedican a tiempo completo al desarrollo de software, pero les deseo de corazon que tomen las cosas con mayor seriedad y podran llegar muy lejos. seguro yo aprendere de ustedes tanto como ustedes de mi persona.

[creus]

Acabo de leer el "enfrentamiento" entre Albano y Sudamericano.
Me siento en cierta medida culpable por el tono que ha cojido una simple duda mia sobre Delphi de una parte de aplicación que tengo que desarrollar y que me cuesta a horrores hacerlo. Por eso me siento obligado a opinar.

Yo no soy profesional del software. He ingresado en el foro por recomendación de mi profesor, y mis dos únicos objetivos son: ayudar y que me ayuden.
El generar alguna tipo de discusión, por llamarlo de alguna manera, creo que esta fuera de lugar de cualquier foro que se precie.
Sudamericano, aprecio tu querer profesionalizar las respuestas pero no todos los que componemos este foro lo somos. Y que no seamos profesionales no quiere decir que tengamos 15 años (sin menospreciar a esa edad ). El didactismo o lo docencia, muchas veces adquiere dinamismo e interés con un poco de "alegria".
De todas maneras de tu intervención seguro que todos sabemos extraer algo, incluso que el tono utilizado no es el adecuado, y si un poco excesivo.

Siento lo extenso de mis palabras.

Gracias a todos de nuevo.

[Neftali [Germán.Estévez]]

Empezado por creus

Necesitaria saber si hay alguna instrucción especifica para que, al cabo de unos segundos determinados sin que hayamos tocado ni el teclado ni el ratón, la aplicación se cierre automaticamente.

Creo que la opción del Timer que te han dado es la correcta.
Coloca un Timer, con un Intervalo segun el tiempo de inactividad que necesites;

Con el siguiente código puedes detectar la actividad de teclado oratón y en consecuencia "resetear" el timer:

Código Delphi [-]
  // RATON
  if (Msg.message = WM_MOUSEMOVE) then begin
    --> Aquí "resetea el TIMER"
  end
  // TECLAS
  else begin
    // Pulsada tecla...
    if  (Msg.message = WM_KEYDOWN)     or (Msg.message = WM_KEYUP)       or
        (Msg.message = WM_SYSKEYDOWN)  or (Msg.message = WM_SYSKEYUP)    or
        (Msg.message = WM_ACTIVATE)    or (Msg.message = WM_NCACTIVATE)  or
        (Msg.message = WM_ACTIVATEAPP) or
        (Msg.message = WM_LBUTTONDOWN) or
        (Msg.message = WM_RBUTTONDOWN) or (Msg.message = WM_MBUTTONDOWN) then begin
        --> Aquí "resetea el TIMER"
    end;
  end;

Necesitas colocar un componente ApplicationEvents en tu form principal, y en el evento OnMessage colocar este código.

[Neftali [Germán.Estévez]]

Creo que con un ejemplo se ve más claro.
A ver si esto lo que necesitas.

[[seoane]]

Hola Neftali, tu ejemplo esta muy bien, pero tiene el mismo problema que encontraron en el hilo anterior. Si un usuario se esta moviendo por el menú de la aplicación, los eventos del ratón no se disparan. Así que si un usuario se entretiene, moviéndose por los menús puede que se le cierre la aplicación.

[[seoane]]

Hoy debo de estar dormido, acabo de borrar un mensaje en el que hablaba de fechas y demás. No se en que estaba pensando, pero lo que si es verdad es que a veces tu ejemplo Neftali no se para al llegar a cero, sino que comienza a contar hacia adelante. supongo que es algún problema con la comparación:

Código Delphi [-]
  if ((_af - _ah) <= 0) then begin

Aunque no veo cual puede ser el fallo.

Edito:
Si coloco esto:

Código Delphi [-]
  if ((_af - _ah) <= _ad) then
  begin
    Windows.Beep(500,100);
    Application.Terminate;
  end;

Al terminar la cuenta, se comienzan a oir los pitido pero la aplicacion no se cierra . Esto solo pasa si estoy viendo alguno de los menus de la aplicacion, ¿La instruccion Application.Terminate no funciona si esta abierto el menu? Ahora si que estoy desconcertado.

[Neftali [Germán.Estévez]]

En cuanto al primer IF no he conseguido que me pase.
En el segundo estoy igual que tú. Un poco (bastante) sorprendido. He probado con el menú y efectivamente, si estás "paseando" por el menú ignora el Terminate/Close.

En algun lugar debe estar "comiendose" esos mensajes.
Cuando tenga un rato me lo miro. Si descubrís algo más, comentadlo aquí; Ya es tema de curiosidad.