TDateTime FileTimeToDateTime(FILETIME *lpftime)
{
 FILETIME   localfiletime;
 SYSTEMTIME systime;
 FileTimeToLocalFileTime(lpftime,&localfiletime);
 FileTimeToSystemTime(&localfiletime,&systime);
 return (TDateTime(systime.wYear,systime.wMonth,systime.wDay)+

TDateTime(systime.wHour,systime.wMinute,systime.wSecond,systime.wMilliseconds));
}
//------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
FILETIME ftCreationTime,ftLastAccessTime,ftLastWriteTime;

HANDLE hFile=(HANDLE)FileOpen("c:\\autoexec.bat",fmOpenRead);

GetFileTime(hFile,&ftCreationTime,&ftLastAccessTime,&ftLastWriteTime);

AnsiString FileInfo="FileName: c:\\autoexec.bat";
FileInfo+="\nCreation Time:
"+FormatDateTime("c",FileTimeToDateTime(&ftCreationTime));
FileInfo+="\nLast Access Time:
"+FormatDateTime("c",FileTimeToDateTime(&ftLastAccessTime));
FileInfo+="\nLast Write Time:
"+FormatDateTime("c",FileTimeToDateTime(&ftLastWriteTime));

Label1->Caption=FileInfo;

FileClose((int) hFile);
}