Timer Pemakaian PC/Laptop Dengan Delphi 7

Pada kesempatan ini admin akan membagikan 1 lagi tips dan trik yaitu membuat Timer dengan delphi
Dimana kali ini kita akan membuat timer dengan delphi yaitu untuk mengetahui berapa lama komputer kita digunakan atau telah berapa lama Laptop kita aktiv. .. .
jadi dengan demikian kita bisa mengetahui sudah berapa jam kah laptop kita sudah dipakai . .

langsung saja buka delphi anda
pada project kemudian tambahkan 1 label dan 1 button kemudian klik 2x button tersebut lalu setelah itu anda tinggal mengkopikan script dibawah ini .. . .

//Listing program

implementation

{$R *.dfm}
 function Uptime : string;
const
tickperjam : integer =1000*60*60;
tickpermenit : integer =1000*60;
tickperdetik : integer = 1000;
var
t : longword;
d,h,m,s : integer;
begin

t:=GetTickCount;
h:=t div tickperjam;
dec (t,h*tickperjam);
m:=t div tickpermenit;
dec(t,m * tickpermenit);
s:=t div tickperdetik;
result:=IntToStr(h)+' jam '+IntToStr(m)+'menit dan '+IntToStr(s)+' detik';
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
    label1.Caption:=' Komputer ini sudah berjalan selama : '+Uptime;
end;