Delphi-Help

Главная Статьи Файлы Как определить время создания файла?

Как определить время создания файла?

Оцените материал
(0 голосов)


Как определить время создания файла?

function GetFileDate( FileName: string ): string;
var
  sr: TSearchRec;
  DT: TFileTime;
  ST: TSystemTime;
begin
   FindFirst( FileName, faAnyFile, sr );
   FileTimeToLocalFileTime( sr.FindData.ftCreationTime, DT );
   FileTimeToSystemTime( DT, ST );
   Result := Format( '%.2d.%.2d.%.4d %d:%.2d:%.2d',
                     [st.wDay,st.wMonth,st.wYear,st.wHour,st.wMinute,st.wSecond] );
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
   ShowMessage( GetFileDate( 'C:\autoexec.bat' ) );
end;
Прочитано 5187 раз

Авторизация



Счетчики