Mega Code Archive

 

Categories / Delphi / System

 

Bilgisayarın ne zamandan beri açık olduğunu anlamak

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;