bestlong 怕失憶論壇

標題: 顯示開機累計時間 [打印本頁]

---

作者: bestlong    時間: 2010-9-8 16:10     標題: 顯示開機累計時間

利用 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

---

歡迎光臨 bestlong 怕失憶論壇 (http://www.bestlong.idv.tw/)

Powered by Discuz! X1.5