(Система) Как получить информацию о файле ? (дата создания и т.д.)

Вопрос: (Система) Как получить информацию о файле ? (дата создания и т.д.)

Ответ:

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.wMillisecond
s));
}
//------------------------------------------------
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);
}