Delphi-Help

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;