Inno Setup 制作安装程序[支持静默安装.NET环境]

admin

1. ; 脚本由 Inno Setup 脚本向导 生成！
   
2. ; 有关创建 Inno Setup 脚本文件的详细资料请查阅帮助文档！
   
3. 
   
4. #define MyAppName "TestSet"
   
5. #define MyAppVersion "1.0"
   
6. #define MyAppPublisher "ZCF"
   
7. #define MyAppURL "http://www.zcfsky.com/"
   
8. #define MyAppExeName "TestApp.exe"
   
9. 
   
10. [Setup]
    
11. ; 注: AppId的值为单独标识该应用程序。
    
12. ; 不要为其他安装程序使用相同的AppId值。
    
13. ; (生成新的GUID，点击 工具|在IDE中生成GUID。)
    
14. AppId={{A7293410-B577-4984-939A-4969DC799A5C}
    
15. AppName={#MyAppName}
    
16. AppVersion={#MyAppVersion}
    
17. AppPublisher={#MyAppPublisher}
    
18. AppPublisherURL={#MyAppURL}
    
19. AppSupportURL={#MyAppURL}
    
20. AppUpdatesURL={#MyAppURL}
    
21. DefaultDirName={pf}/{#MyAppName}/测试程序/
    
22. UsePreviousAppDir=yes
    
23. DefaultGroupName=TestApp
    
24. AllowNoIcons=yes
    
25. OutputBaseFilename=setup
    
26. SetupIconFile=D:/安装程序/TestApp/book.ico
    
27. Compression=lzma
    
28. SolidCompression=yes
    
29. 
    
30. :管理员权限
    
31. PrivilegesRequired=admin
    
32. 
    
33. [Languages]
    
34. Name: "chinesesimp"; MessagesFile: "compiler:Default.isl"
    
35. 
    
36. [Tasks]
    
37. Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; OnlyBelowVersion: 0,6.1
    
38. Name: "quicklaunchicon"; Description: "{cm:CreateQuickLaunchIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked
    
39. 
    
40. [Files]
    
41. Source: "D:/安装程序/TestApp/TestApp.exe"; DestDir: "{app}"; Flags: ignoreversion
    
42. Source: "D:/安装程序/TestApp/TestApp.exe.config"; DestDir: "{app}"; Flags: ignoreversion
    
43. Source: "D:/安装程序/TestApp/readme.txt"; DestDir: "{app}"; Flags: ignoreversion
    
44. Source: "D:/安装程序/TestApp/include/dotnetfx.exe"; DestDir: "{tmp}"; Check:IsNeedInstall ; CopyMode:onlyifdoesntexist;Flags: ignoreversion deleteafterinstall
    
45. ; 注意: 不要在任何共享系统文件上使用“Flags: ignoreversion”
    
46. 
    
47. [Icons]
    
48. Name: "{group}/{#MyAppName}"; Filename: "{app}/{#MyAppExeName}"
    
49. Name: "{group}/查看述文件"; Filename: "{app}/readme.txt"
    
50. Name: "{group}/{cm:UninstallProgram,{#MyAppName}}"; Filename: "{uninstallexe}"
    
51. Name: "{commondesktop}/{#MyAppName}"; Filename: "{app}/{#MyAppExeName}"; Tasks: desktopicon;
    
52. Name: "{userappdata}/Microsoft/Internet Explorer/Quick Launch/{#MyAppName}"; Filename: "{app}/{#MyAppExeName}"; Tasks: quicklaunchicon
    
53. 
    
54. [code]
    
55. var
    
56. isNeedDF : Boolean;
    
57. function IsNeedInstall():Boolean;
    
58. begin
    
59.   isNeedDF := true;
    
60.   if (RegKeyExists(HKLM, 'Software/Microsoft/.NETFramework/policy/v2.0')) then
    
61.   begin
    
62.   isNeedDF := false;
    
63.   Result := false;
    
64.   end
    
65.   else
    
66.   Result := true;
    
67. end;
    
68. 
    
69. procedure CurStepChanged(CurStep: TSetupStep);
    
70. var
    
71. pt:string;
    
72. ResultCode:Integer;
    
73. begin
    
74.   if(CurStep=ssPostInstall) then
    
75.   begin
    
76.     if isNeedDF then
    
77.     begin
    
78.       pt:=  ExpandConstant('{tmp}/dotnetfx.exe');
    
79.       if(FileExists(pt)) then
    
80.       begin
    
81.         if(not Exec(pt,'/q:a /c:"install.exe /qb"','',SW_HIDE,ewWaitUntilTerminated,ResultCode)) then
    
82.         begin
    
83.           MsgBox('.NET运行环境安装失败，请手动安装！', mbInformation, MB_OK);
    
84.         end;
    
85.       end
    
86.       else
    
87.       begin
    
88.         MsgBox('未找到文件'+pt, mbInformation, MB_OK);
    
89.       end;
    
90.     end
    
91.     else
    
92.       MsgBox('You Neednt Install .NET Framework 2.0', mbInformation, MB_OK);
    
93.   end;
    
94. end;
    
95. 
    
96. [Messages]
    
97. BeveledLabel= CoSail Software Co,Ltd.
    
98. 
    
99. [Run]
    
100. Filename: "{app}/{#MyAppExeName}"; Description: "{cm:LaunchProgram,{#StringChange(MyAppName, "&", "&&")}}"; Flags: unchecked nowait postinstall skipifsilent

复制代码

关键位置解释

[Tasks]代码段Flags: unchecked 去掉默认就是选择的
[Files]代码段中加上Check:IsNeedInstall ;就是一个检查是否处理的判断，其中IsNeedInstall是在[Code]代码段中自定义的一个函数。

[Run]代码段Flags加一个unchecked就是安装完毕，"运行本程序"不勾选，默认没有这一项。