Neler yeni
Türkiye'nin En Güncel Forum Sitesi

Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı yada giriş yapmalısınız. Forum üye olmak tamamen ücretsizdir.

Bilgisayar Ne Zamandır Açık?

ByOnur58

Kayıtlı Üye
MFC Üyesi
  • Üyelik Tarihi
    7 Ocak 2015
  • Mesajlar
    2,113
  • MFC Puanı
    10
  • MFC Seviyesi

Kod:
function Uptime: string;
  var
    count,
    days,
    min,
    hours,
    seconds  : longint;
  begin
   Count := GetTickCount();
   Count := Count div 1000;
   Days := Count div (24 * 3600);
   if Days > 0 then
    Count := Count - (24 * 3600 * Days);
    Hours := Count div 3600;
   if Hours > 0 then
    Count := Count - (3600 * Hours);
   Min := Count div 60;
   Seconds := Count mod 60;
   Result := IntToStr(Days)+' Gün '+IntToStr(Hours)+
             ' Saat '+IntToStr(Min)+' Dakika '+
             IntToStr(seconds) +' Saniye ';
  end;
Kullanımı

Kod:
Edit1.Text:=Uptime;
 
Üst Alt