GetFTime. What is correct way get file modification time?

[mika]

Is there some simple, consistent, platform independent way to get file modification time?

Unit "dos" is declared as "compatibility unit" for TP. If i use dos.GetFTime under linux it gives 1 hour off for summer time.

In linux i can use BaseUnix.FpStat and then unixutil.EpochToLocal convert st_mtime to human readable format. Then it is not my local time, but global. Even in documetatin is stated that EpochToLocal use correction for time zone.

I'm targeting dos (in dosbox) and linux and want to get matching results.

[jamie]

https://learn.microsoft.com/en-us/windows/win32/api/fileapi/nf-fileapi-getfileinformationbyhandle

If u are on winders..

[Hartmut]

Did you try sysutils.FileGetDate() = https://www.freepascal.org/docs-html/current/rtl/sysutils/filegetdate.html or sysutils.FileAge() = https://www.freepascal.org/docs-html/current/rtl/sysutils/fileage.html ?

The 1st needs a handle. If you need help to provide this, let me know.

[jcmontherock]

It's that I am using:

Code: Pascal  [Select][+][-]

1. function TForm1.FileTime2DateTime(fFileTime: FILETIME{; bWithTime: Boolean = True}): TDateTime;
2. Var
3.   LocalFileTime:  FILETIME;
4.   SystemFileTime: SYSTEMTIME;
5. begin
6.   {$HINTS OFF}
7.   FileTimeToLocalFileTime(fFileTime, LocalFileTime);
8.         FileTimeToSystemTime(LocalFileTime, SystemFileTime);
9.   Result := SystemTimeToDateTime(SystemFileTime);
10.   {$HINTS ON}
11.   //if bWithTime = True then Result := SystemTimeToDateTime(SystemFileTime)           // With Time
12.   //else                     Result := Trunc(SystemTimeToDateTime(SystemFileTime));   // Without time
13. end;
14.