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;