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 '+IntToStr + ' hours '+IntToStr +' minutes '+ IntToStr +' seconds '; end; begin Label1. Caption:=Uptime; end; arkadaşlar implementation bölümüne yukardaki fonksiyonu yazıp ardından istediğiniz bir yordam da Label1. Caption:=Uptime; şeklinde zamanı aktarabilirsiniz. saygılar.

şuan test aşamasında birde tek kişi olduğum için biraz zor ilerliyor açıkçası benimde projelerim finallerim girince anlarsın ki bu grup işidir. ama biz işte böyle tek başımıza birşeyler yapmaya çalışıyoruz. şuan dediğim gibi test aşamasında birkaç bug var onları düzelttikten sonra vereceğim. saygılar.

çok güzel dostum çok sağol bu arada sizin programı merak ediyorum yaa ne zaman biter?