顯示開機累計時間

bestlong

利用 GetTickCount() 函數來解析就可以了

1. function WindowsUpTime : string ;
   
2.    function MSecToTime(mSec: Integer): string;
   
3.    const
   
4.      secondTicks = 1000;
   
5.      minuteTicks = 1000 * 60;
   
6.      hourTicks   = 1000 * 60 * 60;
   
7.      dayTicks    = 1000 * 60 * 60 * 24;
   
8.    var
   
9.       D, H, M, S: string;
   
10.       ZD, ZH, ZM, ZS: Integer;
    
11.    begin
    
12.       ZD := mSec div dayTicks;
    
13.       Dec(mSec, ZD * dayTicks);
    
14.       ZH := mSec div hourTicks;
    
15.       Dec(mSec, ZH * hourTicks);
    
16.       ZM := mSec div minuteTicks;
    
17.       Dec(mSec, ZM * minuteTicks);
    
18.       ZS := mSec div secondTicks;
    
19.       D := IntToStr(ZD) ;
    
20.       H := IntToStr(ZH) ;
    
21.       M := IntToStr(ZM) ;
    
22.       S := IntToStr(ZS) ;
    
23.       Result := D + '.' + H + ':' + M + ':' + S;
    
24.    end;
    
25. begin
    
26.   result := MSecToTime(GetTickCount) ;
    
27. end;

複製代碼

資料來源 http://delphi.about.com