تبلیغات
دانشجویان نرم افزار کل ایران - تابعی که مدت زمان روشن بودن کامپیوتر رو نشان میده
 
درباره وبلاگ




مدیر وبلاگ : بهرام محمدپور
نویسندگان
آمار وبلاگ
  • کل بازدید :
  • بازدید امروز :
  • بازدید دیروز :
  • بازدید این ماه :
  • بازدید ماه قبل :
  • تعداد نویسندگان :
  • تعداد کل پست ها :
  • آخرین بازدید :
  • آخرین بروز رسانی :
دانشجویان نرم افزار کل ایران
صفحه نخست             تماس با مدیر           پست الکترونیک               RSS                  ATOM

 

function UpTime: string;

const

ticksperday: Integer    = 1000 * 60 * 60 * 24;

ticksperhour: Integer   = 1000 * 60 * 60;

ticksperminute: Integer = 1000 * 60;

tickspersecond: Integer = 1000;

var

t:          Longword;

d, h, m, s: Integer;

begin

t := GetTickCount;

 

d := t div ticksperday;

Dec(t, d * ticksperday);

 

h := t div ticksperhour;

Dec(t, h * ticksperhour);

 

m := t div ticksperminute;

Dec(t, m * ticksperminute);

 

s := t div tickspersecond;

 

Result := 'مدت زمان روشن بودن کامپیوتر شما: ' + IntToStr(d) + ' روز' + IntToStr(h) + ' ساعت ' + IntToStr(m) +

' دقیقه '+ IntToStr(s) + ' ثانیه';

end;

مثال:

روی فرم بذار و در رویداد کلیک مربو ط به کلید بنویس button و یک  l abel یک     

 

 

procedure TForm1.Button1Click(Sender: TObject);

begin

label1.Caption := UpTime;

end;

 

 





نوع مطلب : سورس دلفی، 
برچسب ها : سورس دلفی، توابع دلفی، مدت زمان روشن بودن کامپیوتر، تابعی در دلفی که مدت زمان روشن بودن کامپیوتر رو نشان میده،
لینک های مرتبط :


 
لبخندناراحتچشمک
نیشخندبغلسوال
قلبخجالتزبان
ماچتعجبعصبانی
عینکشیطانگریه
خندهقهقههخداحافظ
سبزقهرهورا
دستگلتفکر