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) |