delphi 如何获取dll文件的编译日期？

function GetExeBuildTime(ExecutablePath: String): TDateTime;

var

  LI: TLoadedImage;

{$IF CompilerVersion >= 26.0}

  m: TMarshaller;

{$IFEND}

  timeStamp: Cardinal;

  utcTime: TDateTime;

begin

{$IF CompilerVersion >= 26.0}

  Win32Check(MapAndLoad(PAnsiChar(m.AsAnsi(ExecutablePath).ToPointer), nil, @LI,

    False, True));

{$ELSE}

  Win32Check(MapAndLoad(PAnsiChar(AnsiString(ExecutablePath)), nil, @LI,

    False, True));

{$IFEND}

  timeStamp := LI.FileHeader.FileHeader.TimeDateStamp;

  UnMapAndLoad(@LI);

  utcTime := UnixToDateTime(timeStamp);

  Result := TTimeZone.local.ToLocalTime(utcTime);

end;