Mengetahui sudah berapa lama Windows dijalankan

Dalam program Anda mungkin Anda ingin mengetahui sudah berapa lama Windows dijalankan pada saat itu. Untuk mengetahuinya Anda dapat menggunakan function di bawah ini.





function UpTime: string;
const
ticksperday : integer = 1000 * 60 * 60 * 24;
ticksperhour : integer = 1000 * 60 * 60;
ticksperminute : integer = 1000 * 60;
tickspersecond : integer = 1000;
var
t : longword;
d, h, m, s : integer;
begin
t := GetTickCount;
d := t div ticksperday;
dec(t, d * ticksperday);
h := t div ticksperhour;
dec(t, h * ticksperhour);
m := t div ticksperminute;
dec(t, m * ticksperminute);
s := t div tickspersecond;
Result := 'Uptime: '+IntToStr(d)+ ' Hari '+IntToStr(h)+' Jam '+IntToStr(m)+' Menit '+IntToStr(s)+' Detik';
end;
Sedangkan contoh penggunaannya adalah sebagai berikut:
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption:=UpTime;
end;