不是存储修改时间,是存储DLL的文件名和版本号。
对于Exe和DLL可以获得其版本号的。类似于以下代码
{-------------------------------------------------------------------------------}
{获取版本文件}
function GetBuildInfo: String;
var
VerInfoSize: DWORD;
VerInfo: Pointer;
VerValueSize: DWORD;
VerValue: PVSFixedFileInfo;
Dummy: DWORD;
begin
VerInfoSize := GetFileVersionInfoSize(PChar(ParamStr(0)), Dummy);
GetMem(VerInfo, VerInfoSize);
GetFileVersionInfo(PChar(ParamStr(0)), 0, VerInfoSize, VerInfo);
VerQueryValue(VerInfo, '/', Pointer(VerValue), VerValueSize);
if VerValue = nil then
begin
Result := '0';
FreeMem(VerInfo, VerInfoSize);
Exit;
end;
Result := IntToStr(VerValue^.dwFileVersionMS shr 16) + '.' +
InttoStr(VerValue^.dwFileVersionMS and $FFFF) + '.' +
IntToStr(VerValue^.dwFileVersionLS shr 16) + '.' +
IntToStr(VerValue^.dwFileVersionLS and $FFFF);
FreeMem(VerInfo, VerInfoSize);
end;