IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Bilgisayarın Ne Kadar Süredir Açık Olduğunu Anlamak

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)+' Days '+IntToStr(Hours)+

       ' hours '+IntToStr(Min)+' minutes '+

       IntToStr(seconds) +' seconds ';

 end;

begin

 Label1.Caption:=Uptime;

end;