Salida automatica de aplicación

[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.