Måling af muse-aktivitet

Her var to links. Jeg søgte på "log pc activity" - og der kom masser af hits. Prøv at kigge videre den vej. Det ser i alt fald ikke ud til du behøver programmere dig en "mouse-activity-hijackker" tingest.


http://www.snapfiles.com/Freeware/security/fwaccessmonitoring.html
http://www.freedownloadscenter.com/Best/pc-activity-log.html

Hej.
Jeg har lige selv lavet et "Big Brother" program til at holde øje med hvor længe computeren har været tændt og hvor stor en del af tiden der har været aktivitet.

Til det sidste kan du bruge denne kode.


function SecondsIdle: DWord;
var
  liInfo: TLastInputInfo;
begin
  liInfo.cbSize := SizeOf(TLastInputInfo) ;
  GetLastInputInfo(liInfo) ;
  Result := (GetTickCount - liInfo.dwTime) DIV 1000;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption := IntToStr(SecondsIdle) + ' sek.';
end;

det ser fornuftigt ud :)

jeg bestemte mig dog for at downloade ergosensor fra www.trygmedpc.dk istedet :D

Så får du også rørt dig lidt...

det er jo det - det er sundt for musearmen ;)