Aplicacion activa
 

Hola amigos
Quiero saber si mi aplicacion que esta ejecutandose, esta activa, es decir si el usuario esta trabajando.
Para que quiero saber esto ? es porque los usuarios tienen la mala costumbre de irse y dejar la aplicacion corriendo este como este, no les interesa nada, algunos me la dejan con un comprobante a medio cargar.
Quiero que en aquellos caso que el usuario no trabajo en el sistema por lo menos mas de 10 minutos, cerrarle los archivos y la aplicacion.
Estuve probando alguna ideas como verificar las presiones de tecla, pero no va esta solucion, ya que puede estar haciendo otra cosa. Si alguien tiene alguna idea.
Gracias a todos

Hola
Coloca un timer en el form principal y pon este codigo.

Código Delphi [-]
procedure TForm1.Timer1Timer(Sender: TObject);
var Sem : THandle;
begin
Sem := CreateSemaphore(nil,0,1,'Nombre.exe'); // nombre del programa
if ((Sem <> 0) and (GetLastError = ERROR_ALREADY_EXISTS)) then
begin
CloseHandle( Sem );
Halt;
end;
end;

En donde dice nombre va el nombre del programa.
Este lo que hace es verificar si esta activo, si lo esta (en un lapso de tiempo) lo cerrara, el timer es el que define el tiempo.
Saludos
PD: Ahi esta el ejemplo

Hola
En el primer ejemplo el programa se cierra en determinado tiempo.
En este ejemplo si el programa se ejecuta y:
1: el mouse se mueve (encima del programa).
2: se presiona alguna tecla (encima del programa).
Entonces: el programa estara activo.
Si no sucede esto el programa se cerrara en determinado tiempo.
para esto use dos timers sincronizados.
Aqui dejo el ejemplo (por tiempo determinado).:)
Saludos

También puedes utilizar e componente InactivityApp de Neftalí,que hace exactamente lo que tú quieres.
Lo puedes descargar desde aquí.

Salu2 y suerte

Aplicacion activa
 

Amigos

Valiosisima su ayuda. Gracias a todos