Application.Terminate

[[Lepe]]

Pues yo tampoco sé muy bien donde usarlo.

He añadido un ApplicationsEvents (en delphi 6) y en los eventos Activate y Desactivate he añadido este código:

Código Delphi [-]
procedure TForm1.ApplicationEvents1Activate(Sender: TObject);
var
 a: tagLASTINPUTINFO;
 b: integer;
 c: integer;
begin
  a.cbSize:= SizeOf(a);
  GetLastInputInfo(a);
  Label1.Caption := IntToStr(a.dwTime - last);
  LAST:= a.dwTime;

end;

LAST es una variable global de la unidad, y sí efectivamente da los valores correctos, es decir, pones en marcha el programa, te vas a otro programa y despues vuelves, y en el label te aparece el tiempo de inactividad que ha pasado (en milisegundos).

El problema es buscar donde poner ese código, evidentemente en el Activate no nos sirve, en el OnIdle del ApplicationsEvents, tampoco, ya que ese evento se produce entre ciclos muy cortos, y obtenemos siempre un cero

Dentro de un Timer tampoco, ya que el timer está ejecutando código, por tanto la aplicación no está realmente parada.

Con ayuda de este club lo implementamos de esta otra forma:

Código Delphi [-]
{ DONE -cINTERFAZ : Bloquear Aplicacion cada cierto tiempo }
procedure ActualizaUltimoAcceso();
begin
  // bloqueo implementado mediante timer
  Timer1.Interval := gl.Bloqueo.Time * 60000;
  timer1.Enabled  := false;
  timer1.Enabled  := gl.Bloqueo.AutoBlock;

end;
procedure TFrmMdi.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
var
  R: TRect;
begin

  // interceptamos eventos de teclado y ratón
  if ((Msg.message >= WM_KEYFIRST) and (Msg.message <= WM_KEYLAST)) or
    ((Msg.message >= WM_MOUSEFIRST) and (Msg.message <= WM_MOUSELAST)) then
    dtm.ActualizaUltimoAcceso;

end;

Esta solución está más que probada y funciona

Un saludo