delphi运行期的执行文件，怎么获取它的版本号
答案:1 悬赏:0 手机版
解决时间 2021-02-22 10:57
- 提问者网友：临风不自傲
- 2021-02-21 13:46
delphi运行期的执行文件，怎么获取它的版本号
最佳答案
- 五星知识达人网友：杯酒困英雄
- 2021-02-21 15:16
Function FileVersion(Const aFile: String; Var AMajor, AMinor, ARelease, ABuild: DWORD): Boolean;
Var
LpdwHandle, VersionSize: DWORD;
VB: Pointer;
VS: PVSFixedFileInfo;
Begin
Result := False;
AMajor := 0;
AMinor := 0;
ARelease := 0;
ABuild := 0;
LpdwHandle := 0;
VersionSize := GetFileVersionInfoSize(PChar(aFile), LpdwHandle);
If VersionSize > 0 Then
Begin
GetMem(VB, VersionSize);
Try
If GetFileVersionInfo(PChar(aFile), 0, VersionSize, VB) Then
Begin
VerQueryValue(VB, '\', Pointer(VS), VersionSize);
AMajor := VS.DwFileVersionMS Div $10000;
AMinor := VS.DwFileVersionMS Mod $10000;
ARelease := VS.DwFileVersionLS Div $10000;
ABuild := VS.DwFileVersionLS Mod $10000;
Result := True;
End;
Finally
Freemem(VB);
End;
End;
End;
Var
LpdwHandle, VersionSize: DWORD;
VB: Pointer;
VS: PVSFixedFileInfo;
Begin
Result := False;
AMajor := 0;
AMinor := 0;
ARelease := 0;
ABuild := 0;
LpdwHandle := 0;
VersionSize := GetFileVersionInfoSize(PChar(aFile), LpdwHandle);
If VersionSize > 0 Then
Begin
GetMem(VB, VersionSize);
Try
If GetFileVersionInfo(PChar(aFile), 0, VersionSize, VB) Then
Begin
VerQueryValue(VB, '\', Pointer(VS), VersionSize);
AMajor := VS.DwFileVersionMS Div $10000;
AMinor := VS.DwFileVersionMS Mod $10000;
ARelease := VS.DwFileVersionLS Div $10000;
ABuild := VS.DwFileVersionLS Mod $10000;
Result := True;
End;
Finally
Freemem(VB);
End;
End;
End;
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯