请问如何对两个exe文件的版本号进行对比?

learnall 2004-04-29 06:45:08
假设有两个exe文件(1.exe、2.exe),分别取出了两个文件的版本号。如何比较两个版本号哪一个大?哪一个小?
...全文
183 6 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
飞翔的老虎 2004-05-07
  • 打赏
  • 举报
回复
wenxiaozhang是对的。另外,有些exe可能没有版本信息。一般版本信息可以指定进行写入的。
learnall 2004-05-07
  • 打赏
  • 举报
回复
可不可以,给出如何比较的代码呢?
learnall 2004-05-07
  • 打赏
  • 举报
回复
我知道wenxiaozhang 是对的,但是那个过程是得到版本号,但是如何进行比对呢? 我是为自己用,所以的exe肯定都有版本
learnall 2004-04-30
  • 打赏
  • 举报
回复
如何比较,请给出代码!
wenxiaozhang 2004-04-30
  • 打赏
  • 举报
回复
版本号格式:
V1.V2.V3.V4
每个部分进行比较就可以了

得到版本号的过程:
procedure GetBuildInfo(var V1, V2, V3, V4: Word);
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);
with VerValue^ do
begin
V1 := dwFileVersionMS shr 16;

V2 := dwFileVersionMS and $FFFF;
V3 := dwFileVersionLS shr 16;
V4 := dwFileVersionLS and $FFFF;
end;
FreeMem(VerInfo, VerInfoSize);
end;

qizhanfeng 2004-04-29
  • 打赏
  • 举报
回复
up

5,928

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧