سایت تخصصی برنامه نویسی دلفی

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;

موفق و  سربلند باشید

************************************************************************************