حساب وقت تشغيل الوندوز

procedure TForm1.Button1Click(Sender: TObject);

var

ndays: double;

ticks: LongInt;

btime: TDateTime;

begin

{الدالة GetTickCount تعطينا عدد أجزاء الثواني منذ تسجيل دخول الوندوز}

ticks := GetTickCount;

{لمعرفة عدد الأيام يجب قسمة ticks على 86400000 (42 ساعة *60دقيقة*60 ثانية*1000جزئ من الثانية), 24*60*60*1000=86400000}

ndays := ticks/86400000;

{نحسب عدد الأيام}

bTime := now-ndays;

ShowMessage(

FormatDateTime('"Windows started on" dddd, mmmm d, yyyy, ' +

'"at" hh:nn:ss AM/PM', bTime) + #10#13 +

'Its been up for ' + IntToStr(Trunc(nDays)) + ' days,' +

FormatDateTime(' h "hours," n "minutes," s "seconds"',ndays));

end;