If not mouse move ???

[Die Muhkuh]

Delphi-Quellcode:

var
  info: tagLASTINPUTINFO;
begin
  info.cbSize := SizeOf(tagLASTINPUTINFO);
  GetLastInputInfo(info);

  Label1.Caption := 'Letzter Input (sek): ' + IntToStr((GetTickCount - info.dwTime) div 1000);