Form dengan Pemberitahuan Lama Windows di Jalankan

hmm dah lama juga ya saya ga update blog saya ini, saya aja jadi kaget tadi waktu liat blog saya yang dah ga ke urus ampe banyak sarang laba - laba n kelelawar yang beterbangan gitu hhehehe it's just my imagination xixixixixi............
okay klo gitu hari ini saya akan mulai lagi bikin postingan buat teman - teman delphierku.....
kali ini saya akan bagikan cara memberi informasi berapa lamanya windows pada caption form delphi. Program ini dibuat agar penggguna dapat mengetahui berapa lama windows telah dijalankan dan disini waktu yang saya gunakan adalah jam menit dan detik.
Untuk membuatnya pertama siapkan form yang akan digunakan untuk membuat program aplikasi ini, setelah itu teman - teman perlu membuat fungsi untuk menghitung waktu yang nanti akan digunakan yahhh kira - kira seperti inilah listing fungsi yang sudah saya buat untuk temen - temen delphier semua.....

var
  Form1: TForm1;

implementation

{$R *.dfm}
function UpTime: string;
const
jam: integer = 1000*60*60;
menit: integer = 1000*60;
detik: integer = 1000;
var
t: longword;
j,m,d: integer;
begin
t:=GetTickCount;
j:= t div jam;dec(t,j*jam);
m:= t div menit;dec(t, m*menit);
d:=t div detik;
Result:=IntToStr(j)+' jam '+IntToStr(m)+' menit '+IntToStr(d)+' detik';
end;

Setelah selesai dengan fungsi tadi maka temen - temen bisa panggil fungsi tersebut dengan menuliskan listing seperti berikut pada events OnCreate milik form yang temen - temen buat tadi
 
procedure TForm1.FormCreate(Sender: TObject);
begin
Caption:=('Windows Kamu Udah berjalan selama: '+Uptime)
end;

Oya hampirr kelupaan biar temen - temen bisa bayangin hasilnya selain listing saya juga mau share screenshotnya aplikasi yang saya buat..... Tarrrraaaa seperti inilah screenshotnya xixixixi...

Form dengan informasi lamanya windows dijalankan dibagian caption form

Ummm hari ini baru ini yang dapat saya share buat temen -  temen delphier moga coretan saya ini bermanfaat buat temen - temen semua kalau ada kekurangan saya mohon kritik n saran dari temen - temen semua.. Terima kasihh untuk kunjungannya  see you next post.....