Borland C++ Builder FAQ - Вpемя создания файла
ОГЛАВЛЕНИЕ
Страница 25 из 127
Вpемя создания файла
// На форме должны быть Lаbel1 и Button1, затем напишите следующий код:
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);
}