Cita:
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
[-]
if (Msg.message = WM_MOUSEMOVE) then begin
--> Aquí "resetea el TIMER"
end
else begin
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.