如何得到exe本身的修改日期？

Question

程序运行的时候，我想把它的修改日期显示出来，怎么得到？

Answer 1

ShowMessage(DateToStr(FileDateToDateTime(FileAge(Application.ExeName))));

Answer 2

这个函数应该是你想要的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);
          //转换FILETIME格式成为DOStime格式
          FileTimeToDosDateTime(lft,LongRec(dft).Hi,LongRec(dft).Lo);
          //转换DOStime格式成为Delphi's应用的TdateTime格式
          Result:=FileDateToDateTime(dft);
     end
     else
         result:=0;
end;