Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Delphi UpTime herausfinden (https://www.delphipraxis.net/12998-uptime-herausfinden.html)

Dax 9. Dez 2003 06:19


UpTime herausfinden
 
In der WinAPI-Help hab' ich gelesen, mit HKEY_PERFORMANCE_DATA könne man Uptimes usw. herausfinden. Aber bei klappt es nicht, wenn ich versuche, genau HKEY_PERFORMANE_DATA zu llesen. Was mache ich falsch?

himitsu 9. Dez 2003 07:28

Re: UpTime herausfinden
 
Liste der Anhänge anzeigen (Anzahl: 1)
Ein Hallöle von http://www.FrankNStein.de/Smiley-Wolke.gif,

diese Hauptschlüssel gibt es:
Code:
HKEY_CLASSES_ROOT
HKEY_CURRENT_USER
HKEY_LOCAL_MACHINE
HKEY_USERS
HKEY_PERFORMANCE_DATA
HKEY_CURRENT_CONFIG
HKEY_DYN_DATA
Hab es getestet, aber unter Win XP scheinen die Hauptschlüssel HKEY_PERFORMANCE_DATA und HKEY_DYN_DATA leer zu sein.

Kann es gerade nicht überprüfen, aber ich bin mir sicher, als hätte ich zumindesten in Win 2000 noch in HKEY_DYN_DATA was geseh'n.


Wenn ich das mit der Uptimes usw. richtig verstanden hab, dann könnte dir meine Demo weiterhelfen.

Uptime = GetTickCount (Seite 2 - vorletztes Label / Label26)

http://www.delphipraxis.net/images/common/divider.jpg
http://www.FrankNStein.de/Smiley-Kuss.gif * * http://www.FrankNStein.de/Smiley-Spinne.gif * * * http://www.FrankNStein.de/Smiley-Winken.gif

Dax 12. Dez 2003 06:14

Re: UpTime herausfinden
 
Die demo is ja ganz nett und unübersichtlich(SUPER!)...
Aber damit kann man auch nur 47.nochwas Tage protokollieren..
Kann man da nicht was machen?

himitsu 12. Dez 2003 08:22

Re: UpTime herausfinden
 
Der in Windows eingebaute Counter schaft nur so viel - nach 49,710... Tagen ist da ein überlauf und der beginnt von vorn zu zählen, ist halt nur ein Integer.

Du könntest aber dein Programm beim start von Windows mit starten und beim Start eine Variable setzen
Delphi-Quellcode:
Var Start: TDateTime;
Start := now;
und dann einfach nur abfragen
Delphi-Quellcode:
Dauer := now - Start;
[add]

Diese Demo ist noch aus den Anfangstagen, also etwas 2-3 Jahre alt. (so unbübersichtlich ist es aber garnicht - alles der Reinfolge nach, so das man es eigentlich leicht findet - die Demos haben sich aber auch mit der Zeit gebessert)

http://www.delphipraxis.net/images/common/divider.jpg
http://www.FrankNStein.de/Smiley-Kuss.gif * * http://www.FrankNStein.de/Smiley-Spinne.gif * * * http://www.FrankNStein.de/Smiley-Winken.gif


Alle Zeitangaben in WEZ +1. Es ist jetzt 19:40 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz