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
[-]
procedure ActualizaUltimoAcceso();
begin
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
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