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

Question

我正在使用此代码来捕获可执行文件 (.exe) 的编译日期。 我正在寻找一个解决方案来实现相同的 .dll 文件。 当此代码插入 dll 项目并注入/或使用某些可执行文件 (.exe) 中的导出函数时，检索到的编译日期是可执行文件而不是 dll。

function GetExeBuildTime: 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(ParamStr(0)).ToPointer), nil, @LI,
    False, True));
{$ELSE}
  Win32Check(MapAndLoad(PAnsiChar(AnsiString(ParamStr(0))), nil, @LI,
    False, True));
{$IFEND}
  timeStamp := LI.FileHeader.FileHeader.TimeDateStamp;
  UnMapAndLoad(@LI);

  utcTime := UnixToDateTime(timeStamp);
  Result := TTimeZone.local.ToLocalTime(utcTime);
end;

用法：

FormatDateTime('dd/mm/yyyy', GetExeBuildTime);

Answer 1

您的代码示例使用ParamStr(0)检索应用程序可执行文件的路径，该文件传递给 MapANdLoad 函数以将可执行文件的 PE 图像加载到内存中。

您需要将ParamStr(0)替换为 DLL 文件的文件位置，以便从 DLL 文件中检索此信息。

这是您修改的函数，以便它接受可执行文件或 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;