Delphi-Quellcode:
function AFK: DWord;
var
last: TLastInputInfo;
begin
last.cbSize := SizeOf(TLastInputInfo) ;
GetLastInputInfo(last) ;
Result := (GetTickCount - last.dwTime) DIV 1000;
end;
procedure TfrmMain.Timer2Timer(Sender: TObject);
begin
IF (AFK >= 1) THEN BEGIN
Label2.Caption := Format(' Tagen, Stunden, Minuten und %d Sekunden', [Afk]);
END;
Damit kann ich die Zeit seit der letzten Maus/Tastaturbewegung messen. Allerdings nur in Sekunden. Wie kann ich das am besten umrechnen? Iwie bin ich zu blöde dazu.
Was aber ein viel größeres Problem ist, ist das er die Zeit nicht speichert sondern nach einer Bewegung und dem folgendem 'AFK' wieder bei 0 anfängt.
