Aplicacion con contador de inactividad

[Kenobi]

Hola amigos, pues bien es lo que quiero, que dado cierto tiempo de inactividad en la aplicacion (definido por mi claro esta) pues application.terminate
digo hay usuario que abren el sistema y mantienen asi una conexion persistente a la base de datos, luego se van a comer y no cierran la aplicacion... una vez lo intente con un timer

algo asi como capturar movimientos de raton o teclado liberando un contador que en caso contrario si llega a un punto critico pues application.terminate

Gracias, seguro que si se puede ....

[roman]

Lo del timer puede funcionar.

Yo haría algo así:

1. Declara una constante TIMEOUT con el máximo tiempo posible de inactividad (en milisegundos) y una variable StartTime para guardar el tiempo en que se inicia la cuenta)


const
TIMEOUT = 90000; // 15 minutos

var
StartTime: Cardinal;


2. En el evento OnTimer de un Timer comparas el valor de StartTime con el tiempo actual y haces lo que tengas que hacer en caso de que haya transcurrido más tiempo que el indicado por TIMEOUT:


procedure TForm1.Timer1Timer(Sender: TObject);
begin
if GetTickCount() - StartTime > TIMEOUT then
Close;
end;


3. En el evento OnMessage de un componente TApplicationEvents (pestaña Additional) detectas los mensajes del teclado o del ratón para reiniciar la cuenta:


procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
begin
if
(
(Msg.message >= WM_MOUSEFIRST) and (Msg.message <= WM_MOUSELAST)
or
(Msg.message >= WM_KEYFIRST) and (Msg.message <= WM_KEYLAST)
)
then
StartTime := GetTickCount();
end;


// Saludos