请问，我应该怎么在本程序执行的时候获得自己的文件修改时间呢？多谢

Question

如题，多谢！

Answer 1

获取文件修改时间
function TForm1.FGetFileTime(sFileName: string;
          TimeType: Integer): TDateTime;
var
   ffd:TWin32FindData;
   dft:DWord;
   lft,Time:TFileTime;
   H:THandle;
begin
     H:=Windows.FindFirstFile(PChar(sFileName),ffd);
     case  TimeType of
           0: Time:=ffd.ftCreationTime;
           1: Time:=ffd.ftLastWriteTime;
           2: Time:=ffd.ftLastAccessTime;
     end;     //获取文件信息
     if (H <> INVALID_HANDLE_VALUE) then
     begin
          Windows.FindClose(H);
          FileTimeToLocalFileTime(Time,lft);
          FileTimeToDosDateTime(lft,LongRec(dft).Hi,LongRec(dft).Lo);
          Result:=FileDateToDateTime(dft);
     end
     else
         result:=0;
end;