Realisierung Programm wurde gewisse Zeit nicht bedient ?

[Bummi]

eine elegante Version wurde hier vor einiger Zeit gepostet.

Delphi-Quellcode:

function LastInput: DWord;
var LInput: TLastInputInfo;
begin
  LInput.cbSize := SizeOf(TLastInputInfo);
  GetLastInputInfo(LInput);
  Result := GetTickCount - LInput.dwTime;
end;


procedure TForm2.Timer1Timer(Sender: TObject);
begin
   Caption :=  IntToStr(LastInput);
end;