AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Projekte Zeitzähler

Zeitzähler

Ein Thema von vsilverlord · begonnen am 8. Apr 2009 · letzter Beitrag vom 13. Apr 2009
Antwort Antwort
Seite 2 von 2     12
Benutzerbild von vsilverlord
vsilverlord
Registriert seit: 7. Jan 2008
Guten Tag!
Ich möchte hier meinen Zeitzähler vorstellen.
Ich benutze ihn jezt schon seit 3 Jahren und mitlerweile an 3 Rechnern, und er funktioniert immer noch perfekt, es gab nie Beschwerden.
Lizens: freeware
-> Er zählt die gesamte Zeit, die man am Pc verbringt und speichert sie in einer Ini.
-> Er startet immer automatisch am systemstart
-> kann unsichtbar gemacht werden
-> minimale Speicher und Prozessorverwendung

Getestet auf Vista und XP

Ich bin kein Experte und jeder könnte so ein Programm programmieren, aber ich denke nicht jeder kommt auf die Idee.
Auf Anfragen auch gerne den Quelltext.
Miniaturansicht angehängter Grafiken
zeitz_hler_screenshot_161.jpg  
Angehängte Dateien
Dateityp: exe project1_352.exe (512,0 KB, 25x aufgerufen)
~beware
Wizards First Rule:
People are stupid; given proper motivation, almost anyone will believe almost anything. Because people are stupid, they will believe a lie because they want to believe it’s true, or because they are afraid it might be true
 
BullsEye

 
Delphi 7 Personal
 
#11
  Alt 13. Apr 2009, 01:29
hm es gibt aber auch ne Funktion um die laufende Zeit des Rechners zu ermitteln OHNE, das ich das Programm von Windowsstart an mitlaufen habe.

EDIT:

Delphi-Quellcode:
uses DateUtils; // Bin mir nicht mehr sicher, ob das mit rein muss.

(..)


procedure GetWindowsUpTime(var ADay, AHours, AMinutes, ASeconds: Integer);
const
  OneDay : Integer = 1000 * 60 * 60 * 24;
  OneHour : Integer = 1000 * 60 * 60;
  OneMinutes : Integer = 1000 * 60;
  OneSecond : Integer = 1000;
var
  Start : Integer;
  d, h, s: Integer;
begin
  Start:=GetTickCount;
  ADay:=Start DIV OneDay; //Tage
  d:=Start MOD OneDay;
  AHours:=d DIV OneHour; //Stunden
  h:=d MOD OneHour;
  AMinutes:=h DIV OneMinutes; //Minuten
  s:=h MOD OneMinutes;
  ASeconds:=s DIV OneSecond; //Sekunden
end;

procedure TfrmMain.Timer1Timer(Sender: TObject);
 var
  Tage, Stunden, Minuten, Sekunden: Integer;
begin
  GetWindowsUpTime(Tage, Stunden, Minuten, Sekunden);
  lblUpTime.Caption:=Format(' %d Tagen, %d Stunden, %d Minuten und %d Sekunden', [Tage,Stunden,Minuten,Sekunden])
end;
Marc
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

 
Delphi 2006 Professional
 
#12
  Alt 13. Apr 2009, 01:42
Das ist die Zeit seit Rechnerstart. Aber da mehrere Benutzer sich nach einander anmelden können, hast du wieder die Zeit aller Benutzer und nicht die jedes einzelnen Bneutzers.

Zitat:
Deshalb speichert er jetzt nur noch alle paar minuten ab. Und bei onclose und ondestroy.
Und warum das? Close ruft OnClose auf und von da wird OnDestroy aufgerufen.
Michael
  Mit Zitat antworten Zitat
BullsEye

 
Delphi 7 Personal
 
#13
  Alt 13. Apr 2009, 11:22
Zitat von Luckie:
Das ist die Zeit seit Rechnerstart. Aber da mehrere Benutzer sich nach einander anmelden können, hast du wieder die Zeit aller Benutzer und nicht die jedes einzelnen Bneutzers.
Ja, schon aber bei Ihm scheint es bisher auch immer nur einen Benutzer zu geben. Man könnte das ganze ja erweitern mit der Zeit, in der keine Eingabe am PC erfolgt (Maus/Tastatur etc) und die Zeit dann abziehen.
Marc
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 09:23 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz