利用 Inno Setup 制作补丁安装程序

Share

       今天需要给之前打包的一个软件制作补丁的安装程序，因为当时并没有考虑到这个小软件会做补丁安装程序，所以当时并没有在注册表中记录这个软件的安装位置，不过幸好在环境变量中记录了与这个软件一起使用的数据库的位置（数据库与该软件在同一个目录下），所以将这个环境变量处理一下就可以得到之前软件的安装目录，具体步骤如下：
       1. 首先在INNO Setup的[Setup]中添加DisableDirPage=yes，此处设定是不允许用户在安装补丁时擅自修改安装目录。
       2. 将[Setup]中DefaultDirName={pf}\{#MyAppName}改为DefaultDirName={code:GetPath}，将安装目录由用户指定改为系统自动设定。
       3. 在code中添加代码如下：

1. 
   
2. //字符串拆分  
   
3. procedure SeparateTerms(s: string; Separator: char; Terms: TStringList);   
   
4. var   
   
5.    hs : string;   
   
6.    p : integer;   
   
7. begin   
   
8.    Terms.Clear; // First remove all remaining terms   
   
9.    if Length(s)=0 then // Nothin'' to separate   
   
10.      Exit;   
    
11.    p:=Pos(Separator,s);   
    
12.   
    
13.    while P<>0 do   
    
14.    begin   
    
15.      hs:=Copy(s,1,p-1); // Copy term   
    
16.      Terms.Add(hs); // Add to list   
    
17.      Delete(s,1,p); // Remove term and separator   
    
18.      p:=Pos(Separator,s); // Search next separator   
    
19.    end;   
    
20.   
    
21.    if Length(s)>0 then   
    
22.      Terms.Add(s); // Add remaining term   
    
23. end;   
    
24.   
    
25. //获取系统安装路径  
    
26. function GetPath(Param: String): String;  
    
27.   var  
    
28.     strPath: String;  
    
29.     Terms: TStringList;         
    
30.      x,i : integer;         
    
31. begin  
    
32.    //取到想要的环境变量值  
    
33.     RegQueryStringValue(HKEY_LOCAL_MACHINE, 'SYSTEM\CurrentControlSet\Control\Session Manager\Environment', 'Path', strPath);   
    
34.    strPath := Trim(strPath);  
    
35.   
    
36.    //拆分Path  
    
37.    Terms:=TStringList.Create;     
    
38.    SeparateTerms(strPath,';',Terms);  
    
39.    for i:=0 to Terms.Count-1 do   
    
40.      begin  
    
41.         x := pos('/dbmaster;',Terms.Strings[i]);  
    
42.         if x>0 then  
    
43.           begin  
    
44.              strPath := Terms.Strings[i];  
    
45.              Delete(strPath,x,10);  
    
46.           end;  
    
47.      end;  
    
48.    Terms.Free;            
    
49.    Result := strPath;  
    
50. end;  

复制代码

       如果之前有在注册表中记录系统的安装路径，就要简单的多，只需要[Setup]中添加DisableDirPage=yes,并将DefaultDirName={pf}\{#MyAppName}改为DefaultDirName={reg:HKLM/SOFTWARE/LACJXT,InstallLocation}-- (从注册表读取系统的实际安装路径)就可以了。