Cara Mengetahui Umur Windows

Untuk mengetahuinya Anda dapat menggunakan function di bawah ini.

1. function UpTime: string;  
2. const  
3. ticksperday : integer = 1000 * 60 * 60 * 24;  
4. ticksperhour : integer = 1000 * 60 * 60;  
5. ticksperminute : integer = 1000 * 60;  
6. tickspersecond : integer = 1000;  
7. var  
8. t : longword;  
9. d, h, m, s : integer;  
10. begin  
11. t := GetTickCount;  
12. d := t div ticksperday;  
13. dec(t, d * ticksperday);  
14. h := t div ticksperhour;  
15. dec(t, h * ticksperhour);  
16. m := t div ticksperminute;  
17. dec(t, m * ticksperminute);  
18. s := t div tickspersecond;  
19. Result := ‘Uptime: ‘+IntToStr(d)+ ‘ Hari ‘+IntToStr(h)+‘      Jam     ‘+IntToStr(m)+‘ Menit ‘+IntToStr(s)+‘ Detik’;  
20. end;  

Sedangkan cara pemanggilannya adalah sebagai berikut:

1. procedure TForm1.Button1Click(Sender: TObject);  
2. begin  
3. Label1.Caption:=UpTime;  
4. end;