Ciao,
in questi giorni, sul forum internazionale, hanno aperto questa discussione:
https://forum.lazarus.freepascal.org/index.php/topic,59678.msg445443/topicseen.html#new
Partendo da lì, e facendo qualche ricerca, ho trovato questo codice:
function IdleTime: DWord;
var
LastInput: TLastInputInfo;
begin
LastInput.cbSize := SizeOf(TLastInputInfo);
GetLastInputInfo(LastInput);
Result:=(GetTickCount - LastInput.dwTime) div 1000;
//Result contiene il numero di secondi passati dall'ultima volta che è stato rilevato un input (mouse o tastiera)
end;
Basta aggiungere alla uses "jwawinuser".
Jo fatto qualche prova, e funziona alla grande !!
Ciao, Mario