代码片段

USES IdGlobal,IdHash;

function GetMd5Str(ContenStr:string):string;
var
  RegMd5:TIdHashMessageDigest5;
  RegDigest:T4x4LongWordRecord;
begin
  RegMd5:=TIdHashMessageDigest5.Create;
  RegDigest:=RegMd5.HashValue(ContenStr);
  Result:=LowerCase(RegMd5.AsHex(RegDigest));
end;


function GetAppVersion:String;
 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;
begin
  Result:=GetFileVersion(Application.ExeName);
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;



// 版本号比较{返回版本差  版本号格式：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;



// 版本号转换为整数(和计算方式)
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;