Data i czas ostatniej modyfikacji pliku

Aby po kliknięciu przycisku Button1 na etykietach Label1 i Label2 wyświetlona została data i czas ostatniej modyfikacji pliku tworzymy zmienną Plik i za pomocą funkcji FileOpen() uzyskujemy uchwyt do pliku (jako parametry podajemy ścieżkę dostępu do pliku - należy zwrócić uwagę na podwójny backslash oddzielający katalogi, a jako drugi parametr fmOpenRead - plik będzie otwarty tylko do odczytu i fmShareDenyNone - brak blokady współdzielenia pliku z innymi aplikacjami), następnie za pomocą funkcji FileGetDate(Plik) otrzymujemy datę i czas ostatniej modyfikacji pliku, która jest konwertowana na obiekt typu TDateTime przez funkcję FileDateToDateTime(). Data ostatniej modyfikacji pliku jest wyświetlana na etykiecie Label1 za pomocą funkcji DateToStr(), a czas za pomocą funkcji TimeToStr(), na końcu jeszcze funkcja FileClose() zamyka plik:

Unit1.cpp

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   int Plik = FileOpen("c:\\katalog\\plik.txt", fmOpenRead && fmShareDenyNone);
   TDateTime DataCzas;
   DataCzas = FileDateToDateTime(FileGetDate(Plik));
   Label1->Caption = DateToStr(DataCzas);
   Label2->Caption = TimeToStr(DataCzas);
   FileClose(Plik);
}