Odczyt czasu pracy systemu

Aby po kliknięciu przycisku Button1 na etykiecie Label1 wyświetlić czas pracy komputera od momentu uruchomienia systemu wywołujemy funkcję IntToStr() i jako jej argument podajemy funkcję Windows API timeGetTime(). Funkcja IntToStr() zamienia otrzymany czas od funkcji timeGetTime() z wartości liczbowej na łańcuch AnsiString (na początku pliku formularza należy dołączyć bibliotekę mmsystem.h):

Unit1.cpp

#include <mmsystem.h>

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   Label1->Caption = "Czas pracy komputera: " + IntToStr(timeGetTime());
}

Czas podawany jest w milisekundach (1 s = 1000 ms)