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.

Download Contoh



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;