Mengetahui lama komputer dinyalakan dengan delphi 7

Seringkali kita ingin mengetahui lama komputer kita telah dinyalakan.Bagaimana mengetahuinya !? Kita akan membuat program untuk menampilkan lama waktu komputer dinyalakan dengan delphi 7.Program sederhana ini bisa kita aplikasikan pada program-program lain sebagai pemanis yang bermanfaat.Lalu tunggu apalagi !? mari kita mulai.

Buka borland delphi 7 anda lalu tambahkan 1 buah komponen label dan componen timer (pada komponen pallete system) kedalamnya.Buatlah sebuah function dengan nama waktu hidup.Ketikan kode di bawah ini setelah {$R *.DFM}

function waktuHidup: string; //bertipe string
const
     detakPerHari : integer = 1000 * 60 * 60 * 24;//konstanta
     detakPerJam : integer = 1000 * 60 * 60;
     detakPerMenit : integer = 1000 * 60;
     detakPerDetik : integer = 1000;
var
   t : longword;  //untuk cardinal
   h, j, m, d : integer;

begin
     t := GetTickCount;

     h := t div detakPerHari;
     dec(t, h * detakPerHari);

     j := t div detakPerJam;
     dec(t, j * detakPerJam);

     m := t div detakPerMenit;
     dec(t, m * detakPerMenit);

     d := t div detakPerDetik;
     //hasil dari fungsi
     Result := 'Komputer anda telah di nyalakan selama : '+IntToStr(h)+ ' Hari '+IntToStr(j)+' Jam '+IntToStr(m)+' Menit '+IntToStr(d)+' Detik';
end;

Pilih timer1 lalu pada properties interval rubah menjadi 1.Double-klik komponen timer1 lalu tambahkan kode berikut

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label1.Caption:=waktuHidup;
end;

Coba jalankan program anda dengan menekan tombol F9.Maka label1 akan menampilkan waktu lama komputer anda hidup.Sekian tutorial kali ini semoga bermanfaat.

Simak Juga Tutorial Lainnya: