PC "AN ZEIT" auslesen

[Fussball-Robby]

Zitat von BullsEye:

Danke für eure Antworten und Ideen

Zitat von Sko:

Einen Hook braucht man dazu eigentlich nicht gleich, die Zeit seit der letzten Eingabe bekommt man auch so raus: [klick]

Ansicht ist die Idee ja ganz gut. Allerdings ist das auch so, das man oft mehr die Maus bedient und dann die Tastatur bei Seite lässt.

Diese Funktion berücksichtigt auch Bewegungen der Maus.

Mfg

[BullsEye]

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.

[Luckie]

Zitat von BullsEye:

Damit kann ich die Zeit seit der letzten Maus/Tastaturbewegung messen. Allerdings nur in Sekunden. Wie kann ich das am besten umrechnen?

Man muss eigentlich nur das prinzip von Stunden, Minuten und Sekunden verstanden haben.

Zitat:

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.

Dann merk sie dir und summier sie.