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

function StartAwayMonitoring(Hwnd: Cardinal; AlertProc: TAlertProc; Intervall: integer): Boolean; stdcall;
begin
  Result := False;
  if KBHHandle = 0 then begin //KBHHandle gehört zum Keyboardhook
    KBHHandle := SetWindowsHookEx(WH_KEYBOARD, @KeyboardHookProc,
    HInstance, 0);
    //...
    Result := TRUE;
  end;
  if (MHHandle = 0) and (result) then begin //das hier steht dann für den Maushook
    MHHandle := SetWindowsHookEx(WH_MOUSE, @MouseHookProc, HInstance, 0);
  end else begin
    Result := true;
  end;
//...
//anschließend wird nur noch ein nonVCL- Timer erstellt, um in Zeitintervallen vergleichen zu können. An dem liegt das Probloem mit dem "Fokus" aber nicht, habs bereits getestet
end;                    

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

function MouseHookProc(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
begin
  Result := CallNextHookEx(MHHandle, nCode, wParam, lParam); //Zur Erinnerung MHHandle ist das Handle des Maushooks
  if (nCode < 0) then begin
    exit;
  end;
  //ab hier wird angenommen, dass eine Eingabe mit der Maus kam
  //...
end;                    

1:
2:

WH_KEYBOARD  Thread or global
WH_MOUSE     Thread or global                    

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

procedure TForm1.idleTimerTimer(Sender: TObject);
var
   d:longint;
   LInput: TLastInputInfo;
begin

LInput.cbSize := SizeOf(TLastInputInfo);
GetLastInputInfo(LInput);
d := (GetTickCount - LInput.dwTime) div 1000; // Ausgabe in Sekunden

if d>5 then
   idleTimeLabel.Color:=clred // user inactive
else
   idleTimeLabel.Color:=clgreen; // user active

idleTimeLabel.Caption := Format('Idle since %d s', [d]);
end;                    

1:

var MHHandle: Cardinal;                    

1:
2:

procedure installHook(Hwnd: Thandle);  // o. (Hwnd: Cardinal)
MHHandle := Hwnd;