1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

var
  tempX:integer=0;
  tempY:integer=0;
  idletime:integer=0;


procedure TForm1.Timer1Timer(Sender: TObject);
begin
     if (tempX = mouse.CursorPos.x) OR (tempY = mouse.CursorPos.y) then
        inc (idletime)
     else
         idletime := 0;

Caption := FloatToStr ( idletime / 10);

if (idletime / 10) > 40 then caption := caption + '  User ist Idle seit ' + FloatToStr(trunc (idletime/10/60)) + ' Minuten';


tempX := mouse.CursorPos.x;
tempY := mouse.CursorPos.y;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

Function LastInput: boolean;
 var LInput : tagLASTINPUTINFO;
 const TIMELIMIT = 10000;
 begin
   result := false;
   LInput.cbSize := SizeOf(tagLASTINPUTINFO);
   GetLastInputInfo(LInput);
   if (GetTickCount - LInput.dwTime) > TIMELIMIT then result := true;
end;