DELPHI 获取版本号、格式化版本信息、比较版本号等相关操作

// 获取版本号   

function GetFileVersion(FileName: string): string;   

type

  PVerInfo = ^TVS_FIXEDFILEINFO;   

  TVS_FIXEDFILEINFO = record

    dwSignature: longint;   

    dwStrucVersion: longint;   

    dwFileVersionMS: longint;   

    dwFileVersionLS: longint;   

    dwFileFlagsMask: longint;   

    dwFileFlags: longint;   

    dwFileOS: longint;   

    dwFileType: longint;   

    dwFileSubtype: longint;   

    dwFileDateMS: longint;   

    dwFileDateLS: longint;   

end;   

var

  ExeNames: array[0..255] ofchar;   

  zKeyPath: array[0..255] of Char;   

  VerInfo: PVerInfo;   

  Buf: pointer;   

  Sz: word;   

  L, Len: Cardinal;   

begin

  StrPCopy(ExeNames, FileName);   

  Sz := GetFileVersionInfoSize(ExeNames, L);   

if Sz = 0 then

begin

    Result := '';   

    Exit;   

end;            

try

    GetMem(Buf, Sz);   

try

      GetFileVersionInfo(ExeNames, 0, Sz, Buf);   

if VerQueryValue(Buf, '\', Pointer(VerInfo), Len) then

begin

        Result := IntToStr(HIWORD(VerInfo.dwFileVersionMS)) + '.' +   

          IntToStr(LOWORD(VerInfo.dwFileVersionMS)) + '.' +   

          IntToStr(HIWORD(VerInfo.dwFileVersionLS)) + '.' +   

          IntToStr(LOWORD(VerInfo.dwFileVersionLS));      

end;   

finally

      FreeMem(Buf);   

end;   

except

    Result := '-1';   

end;   

end;  

// 获取版本号function GetFileVersion(FileName: string): string;type PVerInfo = ^TVS_FIXEDFILEINFO; TVS_FIXEDFILEINFO = record dwSignature: longint; dwStrucVersion: longint; dwFileVersionMS: longint; dwFileVersionLS: longint; dwFileFlagsMask: longint; dwFileFlags: longint; dwFileOS: longint; dwFileType: longint; dwFileSubtype: longint; dwFileDateMS: longint; dwFileDateLS: longint; end;var ExeNames: array[0..255] of char; zKeyPath: array[0..255] of Char; VerInfo: PVerInfo; Buf: pointer; Sz: word; L, Len: Cardinal;begin StrPCopy(ExeNames, FileName); Sz := GetFileVersionInfoSize(ExeNames, L); if Sz = 0 then begin Result := ''; Exit; end; try GetMem(Buf, Sz); try GetFileVersionInfo(ExeNames, 0, Sz, Buf); if VerQueryValue(Buf, '\', Pointer(VerInfo), Len) then begin Result := IntToStr(HIWORD(VerInfo.dwFileVersionMS)) + '.' + IntToStr(LOWORD(VerInfo.dwFileVersionMS)) + '.' + IntToStr(HIWORD(VerInfo.dwFileVersionLS)) + '.' + IntToStr(LOWORD(VerInfo.dwFileVersionLS)); end; finally FreeMem(Buf); end; except Result := '-1'; end;end;

 

以上获取版本号操作转自网上

view plaincopy to clipboardprint?

// 版本号比较{返回版本差  版本号格式：1.0.0.1}   

function CompareVersion(VersionA, VersionB: string): string;   

var

  listA : TStringList;   

  listB : TStringList;   

  i : Integer;   

  strCompare : string;   

begin

  Result := '';   

  // 创建   

  listA := TStringList.Create();   

  listB := TStringList.Create();   

  // 获取列表   

  ExtractStrings(['.'], [' '], PChar(VersionA), listA);   

  ExtractStrings(['.'], [' '], PChar(VersionB), listB);   

if listA.Count <> listB.Count then

    Exit;   

  // 比较   

for i := 0 to listA.Count - 2 do

begin

    strCompare := strCompare + IntToStr(StrToInt(listA[i]) - StrToInt(listB[i])) + '.';   

end;   

  i := listA.Count - 1;   

if i < 0 then

    Exit;   

  strCompare := strCompare + IntToStr(StrToInt(listA[i]) - StrToInt(listB[i]));   

  // 释放   

if Assigned(listA) then

    FreeAndNil(listA);   

if Assigned(listB) then

    FreeAndNil(listB);   

  Result := strCompare;   

end;  

// 版本号比较{返回版本差 版本号格式：1.0.0.1}function CompareVersion(VersionA, VersionB: string): string;var listA : TStringList; listB : TStringList; i : Integer; strCompare : string;begin Result := ''; // 创建 listA := TStringList.Create(); listB := TStringList.Create(); // 获取列表 ExtractStrings(['.'], [' '], PChar(VersionA), listA); ExtractStrings(['.'], [' '], PChar(VersionB), listB); if listA.Count <> listB.Count then Exit; // 比较 for i := 0 to listA.Count - 2 do begin strCompare := strCompare + IntToStr(StrToInt(listA[i]) - StrToInt(listB[i])) + '.'; end; i := listA.Count - 1; if i < 0 then Exit; strCompare := strCompare + IntToStr(StrToInt(listA[i]) - StrToInt(listB[i])); // 释放 if Assigned(listA) then FreeAndNil(listA); if Assigned(listB) then FreeAndNil(listB); Result := strCompare;end;

 

view plaincopy to clipboardprint?

// 版本号转换为整数(和计算方式)   

function VersionSumToInt(Version: string): Integer;   

var

  list : TStringList;   

  i : Integer;   

  nSum : Integer;   

begin

  Result := -1;   

  nSum   := 0;   

  list   := TStringList.Create();   

  ExtractStrings(['.'], [' '], PChar(Version), list);   

for i := 0 to list.Count - 1 do

begin

if StrToIntDef(list[i], -1) < 0 then

      Exit;   

    nSum := nSum + StrToInt(list[i]);   

end;   

if Assigned(list) then

    FreeAndNil(list);   

  Result := nSum;   

end;