Inno Setup 实现软件多版本智能化判断决定安装文件而非使用组件勾选安装

Share

        问题描述：
       在一些插件或汉化文件包装时，需要对多个软件版本进行检索遍历，这就涉及到多版本的判断和安装文件夹与安装文件的对应安装，除了组件的分类安装外，还想自行根据注册表变化来智能判断。最终的目的是实现软件的智能化判断与释放文件。在开始打包前，需要对逻辑进行梳理，才能更好地理解所想要的操作，在编码时才能做到心中有数和达到想要的效果。下面只是列举了一个样本仅供参考，更多需求需要更加用户或打包者的主观意志来决定。

1. 
   
2. function InitializeSetup (): Boolean;
   
3. var
   
4. i: integer;
   
5. begin
   
6. Result := False;
   
7. for i := 5 to 9
   
8.    begin
   
9.    if RegValueExists(HKLM32, 'SOFTWARE\Ulead Systems\ IntToStr\Installer','Path') then begin
   
10.         Result := True;
    
11.          break;
    
12.     end;
    
13.    end;
    
14. begin
    
15.    if Result = False then begin
    
16.        MsgBox('检测到没有安装原版，请先安装原版。', mbInformation, MB_OK);
    
17.    end;
    
18. end;
    
19. [Tasks]
    
20. Name: K5; Description: 安装插件到版本5.0; Flags: checkablealone;
    
21. Name: K6; Description: 安装插件到版本6.0; Flags: checkablealone;
    
22. Name: K7; Description: 安装插件到版本7.0; Flags: checkablealone;
    
23. Name: K8; Description: 安装插件到版本8.0; Flags: checkablealone;
    
24. Name: K9; Description: 安装插件到版本9.0; Flags: checkablealone;
    
25. 
    
26. [Files]
    
27. Source: {app}\CnFilter.8bf; DestDir: {reg:HKLM32\SOFTWARE\Ulead Systems\5.0\Installer,Path}\plug; Flags: ignoreversion; Tasks : K5
    
28. Source: {app}\CnFilter.8bf; DestDir: {reg:HKLM32\SOFTWARE\Ulead Systems\6.0\Installer,Path}\plug; Flags: ignoreversion; Tasks : K6
    
29. Source: {app}\CnFilter.8bf; DestDir: {reg:HKLM32\SOFTWARE\Ulead Systems\7.0\Installer,Path}\plug; Flags: ignoreversion; Tasks : K7
    
30. Source: {app}\CnFilter.8bf; DestDir: {reg:HKLM32\SOFTWARE\Ulead Systems\8.0\Installer,Path}\plug; Flags: ignoreversion; Tasks : K8
    
31. Source: {app}\CnFilter.8bf; DestDir: {reg:HKLM32\SOFTWARE\Ulead Systems\9.0\Installer,Path}\plug; Flags: ignoreversion; Tasks : K9

复制代码

改变

1. [Setup]
   
2. AppName=My Program
   
3. AppVerName=My Program version 1.5
   
4. DefaultDirName={pf}\My Program
   
5. DisableProgramGroupPage=yes
   
6. UninstallDisplayIcon={app}\MyProg.exe
   
7. OutputDir=userdocs:Inno Setup Examples Output
   
8. 
   
9. [Files]
   
10. Source: MyDll.dll; DestDir: {reg:HKLM32\SOFTWARE\Ulead Systems\5.0\Installer,Path}\plug; Flags: ignoreversion; Tasks : K5
    
11. Source: MyDll.dll; DestDir: {reg:HKLM32\SOFTWARE\Ulead Systems\6.0\Installer,Path}\plug; Flags: ignoreversion; Tasks : K6
    
12. Source: MyDll.dll; DestDir: {reg:HKLM32\SOFTWARE\Ulead Systems\7.0\Installer,Path}\plug; Flags: ignoreversion; Tasks : K7
    
13. Source: MyDll.dll; DestDir: {reg:HKLM32\SOFTWARE\Ulead Systems\8.0\Installer,Path}\plug; Flags: ignoreversion; Tasks : K8
    
14. Source: MyDll.dll; DestDir: {reg:HKLM32\SOFTWARE\Ulead Systems\9.0\Installer,Path}\plug; Flags: ignoreversion; Tasks : K8
    
15. 
    
16. [Tasks]
    
17. Name: K5; Description: 安装插件到版本5.0; Flags: unchecked ; check: CheckVersion('5.0')
    
18. Name: K6; Description: 安装插件到版本6.0; Flags: unchecked ; check: CheckVersion('6.0')
    
19. Name: K7; Description: 安装插件到版本7.0; Flags: unchecked ; check: CheckVersion('7.0')
    
20. Name: K8; Description: 安装插件到版本8.0; Flags: unchecked ; check: CheckVersion('8.0')
    
21. Name: K9; Description: 安装插件到版本9.0; Flags: unchecked ; check: CheckVersion('9.0')
    
22. 
    
23. [code]
    
24. function InitializeSetup (): Boolean;
    
25.   var
    
26.   i: integer;
    
27.   begin
    
28.     Result := False;
    
29.     for i := 5 to 9 do
    
30.       begin
    
31.       if RegValueExists(HKLM32, 'SOFTWARE\Ulead Systems\' + IntToStr(i) + '.0\Installer','Path') then begin
    
32.           Result := True;
    
33.           break;
    
34.       end;
    
35.     end;
    
36.     begin
    
37.       if Result = False then begin
    
38.           MsgBox('检测到没有安装原版，请先安装原版。', mbInformation, MB_OK);
    
39.       end;
    
40.   end;
    
41. end;
    
42. 
    
43. function CheckVersion(Version: string): Boolean;
    
44. begin
    
45.   result:= RegValueExists(HKLM32, 'SOFTWARE\Ulead Systems\' + Version + '\Installer', 'Path');
    
46. end;

复制代码

如果不想要用户自选的话，只需要取消Tasks段即可

1. [Tasks]
   
2. Name: K5; Description: 安装插件到版本5.0; Flags: unchecked ; check: CheckVersion('5.0')
   
3. Name: K6; Description: 安装插件到版本6.0; Flags: unchecked ; check: CheckVersion('6.0')
   
4. Name: K7; Description: 安装插件到版本7.0; Flags: unchecked ; check: CheckVersion('7.0')
   
5. Name: K8; Description: 安装插件到版本8.0; Flags: unchecked ; check: CheckVersion('8.0')
   
6. Name: K9; Description: 安装插件到版本9.0; Flags: unchecked ; check: CheckVersion('9.0')

复制代码

示例代码如下

1. [Setup]
   
2. AppName=My Program
   
3. AppVerName=My Program version 1.5
   
4. DefaultDirName={pf}\My Program
   
5. DisableProgramGroupPage=yes
   
6. UninstallDisplayIcon={app}\MyProg.exe
   
7. OutputDir=userdocs:Inno Setup Examples Output
   
8. 
   
9. [Files]
   
10. Source: MyDll.dll; DestDir: {reg:HKLM32\SOFTWARE\Ulead Systems\5.0\Installer,Path}\plug; Flags: ignoreversion; check: CheckVersion('5.0')
    
11. Source: MyDll.dll; DestDir: {reg:HKLM32\SOFTWARE\Ulead Systems\6.0\Installer,Path}\plug; Flags: ignoreversion; check: CheckVersion('6.0')
    
12. Source: MyDll.dll; DestDir: {reg:HKLM32\SOFTWARE\Ulead Systems\7.0\Installer,Path}\plug; Flags: ignoreversion; check: CheckVersion('7.0')
    
13. Source: MyDll.dll; DestDir: {reg:HKLM32\SOFTWARE\Ulead Systems\8.0\Installer,Path}\plug; Flags: ignoreversion; check: CheckVersion('8.0')
    
14. Source: MyDll.dll; DestDir: {reg:HKLM32\SOFTWARE\Ulead Systems\9.0\Installer,Path}\plug; Flags: ignoreversion; check: CheckVersion('9.0')
    
15. 
    
16. [code]
    
17. function InitializeSetup (): Boolean;
    
18.   var
    
19.   i: integer;
    
20.   begin
    
21.     Result := False;
    
22.     for i := 5 to 9 do
    
23.       begin
    
24.       if RegValueExists(HKLM32, 'SOFTWARE\Ulead Systems\' + IntToStr(i) + '.0\Installer','Path') then begin
    
25.           Result := True;
    
26.           break;
    
27.       end;
    
28.     end;
    
29.     begin
    
30.       if Result = False then begin
    
31.           MsgBox('检测到没有安装原版，请先安装原版。', mbInformation, MB_OK);
    
32.       end;
    
33.   end;
    
34. end;
    
35. 
    
36. function CheckVersion(Version: string): Boolean;
    
37. begin
    
38.   MsgBox(Version, mbInformation, MB_OK);
    
39.   result:= RegValueExists(HKLM32, 'SOFTWARE\Ulead Systems\' + Version + '\Installer', 'Path');
    
40. end;
    

复制代码

在这里，其实可以定义几个变量，譬如版本号与路径
var usver        #先定义一个变量
function k5(): Boolean;          #然后用户选择
   usver='5.0'  还是 StrCpy usver '5.0'    还是其他写法       #变量赋值
function k6(): Boolean;
usver='6.0'
function k7(): Boolean;
usver='7.0'
function k8(): Boolean;
usver='8.0'
function k9(): Boolean;
usver='9.0'

#再判断用户选定的版本是否存在，变量的引用是否$usver，以及连接符，你去修改。
if RegValueExists(HKLM32, 'SOFTWARE\Ulead Systems\' + $usver + '\Installer','Path') then

#下面这一句也可以合并成一句了：
result:= RegValueExists(HKLM32, 'SOFTWARE\Ulead Systems\' + $usver + '\Installer', 'Path');

#最后同样：
[Files]
Source: {app}\CnFilter.8bf; DestDir: {reg:HKLM32\SOFTWARE\Ulead Systems\' + $usver + '\Installer,Path}\plug; Flags: ignorever