YoRuMSuZ
Biz işimize bakalım...
Bu çalışmada bilgisayarımızın ne kadar süre açık kaldığını bulacağız. Örneğin sizden başkası bilgisayarınızı açtı ve size sadece 10 dakikadır açık diyor. Ama artık siz bu basit programınızla gerçeği ortaya çıkaraıyorsunuz 
Yeni bir proje başlatıyoruz ve formumuz üzerine
1 adet Buton
1 adet Label ekliyoruz.
Ancak burda yeni bir function tanımlamamız gerekiyor. Hazır function kodlarını buradan alıp direkt kullanabilirsiniz.
Klavyeden F12 tuşuna basarak kod penceresine ulaşıyoruz. ve
{$R *.dfm}
yazan yerin hemen altına alttaki function'u aynen ekliyoruz.
Şimdi yukarıdaki kodu eklediğimize göre tekrar form alanına dönmek için F12 tuşuna basıyoruz. Formumuzdaki Butona çift tıklayıp Butonun OnClick yordamına yazacağımız kod bölümüne ulaşıyoruz ve begin - end blokları arasına aşağıdaki kodu yazıyoruz.
Artık Label'deki yazıyı renklendirmeyi öğrenmiştik. İstediğiniz renge göre ayarlayabilirsiniz. Hatta form sayfasında iken Label'i seçili hale getirip Properties bölümündeki Font ayarlarından istediğiniz şekilde görünümü değiştirebilirsiniz.
Artık Button üzerinde ne yazmak istiyorsanız yine Properties bölümünden Caption bölümüne yazın. Label'deki yazıyı da ilk açılışta ne görünmesini istiyorsanız aynı bölümden değiştirebilirsiniz. Bizim için önemli olan Butona bastığımızda bilgisayarın açık kalma süresini bize vermesi.
Kodlar tamam ise artık Run (F9) diyoruz exe dosyamız derleniyor. Butona bastığımızda Label de bilgisayarın açık kalma süresi bize verilecek.
Yeni bir proje başlatıyoruz ve formumuz üzerine
1 adet Buton
1 adet Label ekliyoruz.
Ancak burda yeni bir function tanımlamamız gerekiyor. Hazır function kodlarını buradan alıp direkt kullanabilirsiniz.
Klavyeden F12 tuşuna basarak kod penceresine ulaşıyoruz. ve
{$R *.dfm}
yazan yerin hemen altına alttaki function'u aynen ekliyoruz.
Kod:
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)+' Gün '+IntToStr(Hours)+
' Saat '+IntToStr(Min)+' Dakika '+
IntToStr(seconds) +' Saniye ';
end;Şimdi yukarıdaki kodu eklediğimize göre tekrar form alanına dönmek için F12 tuşuna basıyoruz. Formumuzdaki Butona çift tıklayıp Butonun OnClick yordamına yazacağımız kod bölümüne ulaşıyoruz ve begin - end blokları arasına aşağıdaki kodu yazıyoruz.
Kod:
Label1.Caption:=Uptime;Artık Label'deki yazıyı renklendirmeyi öğrenmiştik. İstediğiniz renge göre ayarlayabilirsiniz. Hatta form sayfasında iken Label'i seçili hale getirip Properties bölümündeki Font ayarlarından istediğiniz şekilde görünümü değiştirebilirsiniz.
Artık Button üzerinde ne yazmak istiyorsanız yine Properties bölümünden Caption bölümüne yazın. Label'deki yazıyı da ilk açılışta ne görünmesini istiyorsanız aynı bölümden değiştirebilirsiniz. Bizim için önemli olan Butona bastığımızda bilgisayarın açık kalma süresini bize vermesi.
Kodlar tamam ise artık Run (F9) diyoruz exe dosyamız derleniyor. Butona bastığımızda Label de bilgisayarın açık kalma süresi bize verilecek.
