小编use*_*392的帖子

我使用一个简单的命令从文件中获取文件日期,但一直得到错误的日期.

在我的电脑上,我看了看日期是14/3/2014.但是当我运行命令时,无论我尝试什么文件,我都会得到30/12/1999,它会保持相同的返回日期.

我试过了

BackupFileDate:=FileAge(S);;
    originalfiledate:=FileAge(fileName);

和

BackupFileDate:=GetFileModDate(S);
originalfiledate:=GetFileModDate(Filename);

function GetFileModDate(filename : string) : TDateTime;
var
   F : TSearchRec;
begin
   FindFirst(filename,faAnyFile,F);
   Result := F.TimeStamp;

   //Result := F.Time;
   FindClose(F);
end;

两者都有相同的结果.PS:BackupFileDate和originalfiledate现在都被定义为TDate,我已经尝试过TDateTime,结果相同.

我想获得上次编辑文件的日期和时间.