Aplicacion activa

[[Caral]]

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

[[Caral]]

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

[radenf]

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

Salu2 y suerte

[dao_ar]

Amigos

Valiosisima su ayuda. Gracias a todos