Inno Setup 获取软件版本值并且对比

admin

      版本比较主要用于制作补丁时采用，从注册表获取版本字窜代码进行比较或者直接使用文件信息中的版本来进行比较，从而判断是否安装相应的补丁。

1. 
   
2. //从注册表中获取SVN客户端TortoiseSVN的版本号
   
3. function getSVNClientVersion (): String;
   
4. begin
   
5.   RegQueryStringValue(HKCU , 'Software\TortoiseSVN','CurrentVersion', result);
   
6. end;
   
7. 
   
8. //此函数用于截取版本号数字
   
9. procedure DecodeVersion (verstr: String; var verint: array of Integer);
   
10. var
    
11.   i,p: Integer; s: string;
    
12. begin
    
13.   verint := [0,0,0,0];
    
14.   i := 0;
    
15.   while ((Length(verstr) > 0) and (i < 4)) do
    
16.   begin
    
17.     p := pos (',', verstr);
    
18.     if p > 0 then
    
19.     begin
    
20.       if p = 1 then s:= '0' else s:= Copy (verstr, 1, p - 1);
    
21.       verint[i] := StrToInt(s);
    
22.       i := i + 1;
    
23.       verstr := Copy (verstr, p+1, Length(verstr));
    
24.     end
    
25.     else
    
26.     begin
    
27.       verint[i] := StrToInt (verstr);
    
28.       verstr := '';
    
29.     end;
    
30.   end;
    
31. end;
    
32. 
    
33. 
    
34. // 此函数用于比较版本字符串
    
35. // 若 ver1 > ver2 返回值  1
    
36. // 若 ver1 = ver2 返回值  0
    
37. // 若 ver1 < ver2 返回值 -1
    
38. function CompareVersion (ver1, ver2: String) : Integer;
    
39. var
    
40.   verint1, verint2: array of Integer;
    
41.   i: integer;
    
42. begin
    
43.   SetArrayLength (verint1, 4);
    
44.   DecodeVersion (ver1, verint1);
    
45.   SetArrayLength (verint2, 4);
    
46.   DecodeVersion (ver2, verint2);
    
47.   Result := 0; i := 0;
    
48.   while ((Result = 0) and (i < 4)) do
    
49.   begin
    
50.     if verint1[i] > verint2[i] then
    
51.       Result := 1
    
52.     else
    
53.       if verint1[i] < verint2[i] then
    
54.         Result := -1
    
55.       else
    
56.         Result := 0;
    
57.     i := i + 1;
    
58.   end;
    
59. end;
    
60. 
    

复制代码