//---------------------------------------------------------------------------
#include 
#include 
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    if(OpenDialog1->Execute()){
 
        struct stati64 infFile;
        _wstati64(OpenDialog1->FileName.c_str(), &infFile);
 
        char date[38];
        strftime(date, 36, "%Y-%m-%d %H:%M:%S", localtime(&infFile.st_ctime));
        Memo1->Lines->Add("Data utworzenia: "+UnicodeString(date));
        strftime(date, 36, "%Y-%m-%d %H:%M:%S", localtime(&infFile.st_mtime));
        Memo1->Lines->Add("Data modyfikacji: "+UnicodeString(date));
        strftime(date, 36, "%Y-%m-%d %H:%M:%S", localtime(&infFile.st_atime));
        Memo1->Lines->Add("Data ostatniego użycia: "+UnicodeString(date));
    }
}
//---------------------------------------------------------------------------