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

[云帆]

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

[老之]

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

[hellolongbin]

这个函数应该是你想要的

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;