Einzelnen Beitrag anzeigen

NicoDE
(Gast)

n/a Beiträge
 
#3

Re: Beschränkung von GetTickCount umgehen

  Alt 30. Jan 2004, 12:31
Ich hab den Code in eine handliche Unit gepackt, eine Linux-Version hinzugefügt und die Rückgabewerte in Sekunden geändert (höhere Genauigkeit ist nicht notwendig - zumal die Angabe üblicherweise in Sekunden erfolgt).
(siehe Anhang)

Ein Beispiel könnte jetzt so aussehen:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
  UpTime9x: Int64;
  UpTimeNt: Int64;
  UpTimeLx: Int64;
begin
  UpTime9x := GetSystemUpTimeWin9x();
  UpTimeNt := GetSystemUpTimeWinNT();
  UpTimeLx := GetSystemUpTimeLinux();
  ShowMessage(Format(
    'GetTickCount'#9': %d day(s) %2.2d:%2.2d:%2.2d'#10 +
    'Perf-Counter'#9': %d day(s) %2.2d:%2.2d:%2.2d'#10 +
    'sysinfo.uptime'#9': %d day(s) %2.2d:%2.2d:%2.2d', [
    UpTime9x div 86400, UpTime9x mod 86400 div 3600, UpTime9x mod 3600 div 60,
    UpTime9x mod 60,
    UpTimeNt div 86400, UpTimeNt mod 86400 div 3600, UpTimeNt mod 3600 div 60,
    UpTimeNt mod 60,
    UpTimeLx div 86400, UpTimeLx mod 86400 div 3600, UpTimeLx mod 3600 div 60,
    UpTimeLx mod 60]));
end;

Gruß Nico

ps: sorry fürs Pushen, kann nicht mehr editieren...

[edit=Chakotay1308]Neue Version des Anhangs hochgeladen. Mfg, Chakotay1308[/edit]
[edit=Chakotay1308]Neue Version hochgeladen. Mfg, Chakotay1308[/edit]
Angehängte Dateien
Dateityp: pas sysuptime_472.pas (12,5 KB, 118x aufgerufen)
  Mit Zitat antworten Zitat