delphi运行期的执行文件，怎么获取它的版本号

delphi运行期的执行文件，怎么获取它的版本号

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;