Setup Factory 7.0打包.NET Framework 的方法

admin

本文介绍一个工具：Setup Factory。在7.0版本中，Setup Factory的默认从属资源中仅支持VB5.0及VB6.0，想要在生成的安装程序中自动完成.NET FRAMEWORK的安装，从网上查了一下，须要按以下步骤做几件事：
首先找到Setup Factory安装目录下的Dependencies目录，在目录中新建一个dotnet2_0.xml的文件。
然后，在Dependencies目录下新建子目录，取名dotnet2_0，将.NET FRAMEWORK安装程序dotnetfx.exe拷至该子目录下，dotnetfx.exe可在VS 2005的安装目录下的SDK//v2.0//BootStrapper//Packages//dotnetfx目录下找到。
完成之后打开Setup Factory，选择：资源---从属---添加，可以看到.NET FRAMEWORK 2.0了。
文件dotnet2_0.xml内容如下：

1. < DependencyTemplate >
   
2. 
   
3. < Dependency >
   
4. 
   
5. < Name > Microsoft.NETFramework2.0 </ Name >
   
6. 
   
7. < RuntimeTempFolder > dotnet2_0 </ RuntimeTempFolder >
   
8. 
   
9. < RevisionDate > Friday,March30,2007 </ RevisionDate >
   
10. 
    
11. < Description > 安装Microsoft.NETFramework2.0应用程序所需的运行时文件。 </ Description >
    
12. 
    
13. < DetectScript >
    
14. 
    
15. functionisDotNet_Installed()
    
16. 
    
17. --author:zhengxinhewww.admans.net
    
18. 
    
19. --Outputtothelogthatthe.NETdetectionhasstarted.
    
20. 
    
21. SetupData.WriteToLogFile("Success/t.NET2.0Module:Detectionscriptstarted./r/n",true);
    
22. 
    
23. --Gettheoperatingsystemname.
    
24. 
    
25. --Checktoseeiftheregistrykeyexists
    
26. 
    
27. DotNet_Registry=Registry.DoesKeyExist(HKEY_LOCAL_MACHINE,"Software//Microsoft//.NETFramework");
    
28. 
    
29. if(DotNet_Registry==nil)then
    
30. 
    
31. --Theregistrykeydoesnotexist
    
32. 
    
33. --Runthe.NETInstallationscript
    
34. 
    
35. --Outputtothelogfilethat.NETcouldnotbefound,soitwillbeinstalled.
    
36. 
    
37. SetupData.WriteToLogFile("Info/t.NET2.0Module:Noversionof.NET2.0fileswasfound..NET2.0willbeinstalled./r/n",true);
    
38. 
    
39. returnfalse;
    
40. 
    
41. end
    
42. 
    
43. --Thekeydoesexist
    
44. 
    
45. --Getthe.NETinstalllocationfromtheregistry
    
46. 
    
47. DotNet_Install_Location=Registry.GetValue(HKEY_LOCAL_MACHINE,"Software//Microsoft//.NETFramework","InstallRoot",true);
    
48. 
    
49. --Lookforthefilemscorcfg.dll
    
50. 
    
51. Does_File_Exist=DotNet_Install_Location.."//v2.0.50727//aspnet_rc.dll";
    
52. 
    
53. if(notFile.DoesExist(Does_File_Exist))then
    
54. 
    
55. --Thefiledoesnotexist
    
56. 
    
57. --Runthe.NETInstallationscript
    
58. 
    
59. --Outputtothelogfilethat.NETcouldnotbefound,soitwillbeinstalled.
    
60. 
    
61. SetupData.WriteToLogFile("Info/t.NET2.0Module:Noversionof.NET2.0filewasfound..NET2.0willbeinstalled./r/n",true);
    
62. 
    
63. returnfalse;
    
64. 
    
65. end
    
66. 
    
67. --Thefiledoesexist
    
68. 
    
69. --Gettheversionofmscorcfg.dll
    
70. 
    
71. msc_ver=File.GetVersionInfo(Does_File_Exist);
    
72. 
    
73. if(notmsc_ver)then
    
74. 
    
75. SetupData.WriteToLogFile("Info/t.NET2.0Module:noversionwasfound..NET2.0willbeinstalled./r/n",true);
    
76. 
    
77. returnfalse;
    
78. 
    
79. end
    
80. 
    
81. 
    
82. 
    
83. --Comparethereturnedvalueagainsttheneededvalue
    
84. 
    
85. Compare=String.CompareFileVersions(msc_ver.FileVersion,"2.0.50727.42");
    
86. 
    
87. if(Compare==-1)then
    
88. 
    
89. --Outputtothelogfilethatalesserversionof.NETwasfoundonthesystem
    
90. 
    
91. SetupData.WriteToLogFile("Info/t.NET2.0Module:Alesserversionof.NET2.0("..msc_ver.FileVersion..")wasfoundontheuserssystem./r/n",true);
    
92. 
    
93. returnfalse;
    
94. 
    
95. else
    
96. 
    
97. --aversionlessthanversion2.0isinstalled
    
98. 
    
99. --Outputtothelogfilethatalesserversionof.NETwasfoundonthesystem
    
100. 
     
101. SetupData.WriteToLogFile("Info/t.NET2.0Module:Aneworthisversionof.NET2.0wasfoundontheuserssystem./r/n",true);
     
102. 
     
103. returntrue;
     
104. 
     
105. end
     
106. 
     
107. end
     
108. 
     
109. </ DetectScript >
     
110. 
     
111. < DetectFunction > isDotNet_Installed </ DetectFunction >
     
112. 
     
113. < InstallScript >
     
114. 
     
115. --用在安装操作中的变量:
     
116. 
     
117. localstrMessage=[[安装程序检测到你的系统没有安装Microsoft.NETFramework2.0或者版本过旧。请点击“确定”进行安装，点击“取消”中止安装。]];
     
118. 
     
119. localstrDialogTitle="必需的技术文件";
     
120. 
     
121. localbShowUserPrompt=true;--设置为true来询问用户是否安装模块
     
122. 
     
123. localbRunInstallFile=true;--设置默认选择(是否默认运行安装)
     
124. 
     
125. localstrRuntimeSupportFolder=SessionVar.Expand("%TempLaunchFolder%//dotnet2_0");
     
126. 
     
127. localstrFileToRun=strRuntimeSupportFolder.."//dotnetfx.exe";
     
128. 
     
129. -----------------------------------------------------------------------------------------
     
130. 
     
131. --安装已启动。
     
132. 
     
133. SetupData.WriteToLogFile("成功/tdotnet2_0模块：安装脚本已启动。/r/n",true);
     
134. 
     
135. --删除临时文件和运行时支持文件夹(同时进行错误检查)
     
136. 
     
137. localfunctionPerformCleanUp()
     
138. 
     
139. File.Delete(strFileToRun);
     
140. 
     
141. error=Application.GetLastError();
     
142. 
     
143. iferror~=0then
     
144. 
     
145. SetupData.WriteToLogFile("错误/tdotnet2_0模块：无法删除临时文件(".._tblErrorMessages[error]..")/r/n",true);
     
146. 
     
147. end
     
148. 
     
149. Folder.Delete(strRuntimeSupportFolder);
     
150. 
     
151. error=Application.GetLastError();
     
152. 
     
153. iferror~=0then
     
154. 
     
155. SetupData.WriteToLogFile("错误/tdotnet2_0模块：无法删除临时文件夹(".._tblErrorMessages[error]..")/r/n",true);
     
156. 
     
157. end
     
158. 
     
159. end
     
160. 
     
161. --是否显示对话框来询问用户是否安装模块。
     
162. 
     
163. if(bShowUserPrompt)then
     
164. 
     
165. localnDialogResult=Dialog.Message(strDialogTitle,strMessage,MB_OKCANCEL,MB_ICONEXCLAMATION);
     
166. 
     
167. if(nDialogResult==IDOK)then
     
168. 
     
169. --用户选择安装模块。
     
170. 
     
171. bRunInstallFile=true;
     
172. 
     
173. --用户要安装它
     
174. 
     
175. SetupData.WriteToLogFile("成功/tdotnet2_0模块：用户已确认，准备安装。/r/n",true);
     
176. 
     
177. else
     
178. 
     
179. --用户不安装模块。
     
180. 
     
181. bRunInstallFile=false;
     
182. 
     
183. --用户回答否
     
184. 
     
185. SetupData.WriteToLogFile("成功/tdotnet2_0模块：用户不安装模块。/r/n",true);
     
186. 
     
187. end
     
188. 
     
189. end
     
190. 
     
191. --检查用户是否要安装运行时。
     
192. 
     
193. if(bRunInstallFile)then
     
194. 
     
195. --开始！
     
196. 
     
197. SetupData.WriteToLogFile("成功/tdotnet2_0模块：正在运行dotnet2_0安装程序。/r/n",true);
     
198. 
     
199. --“/R:N”命令行参数告诉VB安装程序若需要的话不要显示重启屏幕。
     
200. 
     
201. --我们将检测整个安装进程返回代码，若需要的话，还设置内部_NeedsReboot变量。
     
202. 
     
203. --【注意】在静默方式下，你不能添加命令行参数“/Q”来运行安装
     
204. 
     
205. localnResult=File.Run(strFileToRun,"/R:N","",SW_SHOWNORMAL,true);
     
206. 
     
207. if(nResult==3010)then
     
208. 
     
209. --VB安装指明它需要重启才能完成
     
210. 
     
211. --设置SetupFactory的重启变量，以便在安装结束时重启
     
212. 
     
213. _NeedsReboot=true;
     
214. 
     
215. --需要重启
     
216. 
     
217. SetupData.WriteToLogFile("成功/tdotnet2_0模块：dotnet2_0安装程序已告知它需要重启。/r/n",true);
     
218. 
     
219. end
     
220. 
     
221. --删除运行时安装程序文件，并删除临时文件夹
     
222. 
     
223. PerformCleanUp();
     
224. 
     
225. --全部完成！
     
226. 
     
227. SetupData.WriteToLogFile("成功/tdotnet2_0模块：dotnet2_0运行时安装完毕。/r/n",true);
     
228. 
     
229. else
     
230. 
     
231. --用户不想安装运行时，那么删除运行时安装程序文件，
     
232. 
     
233. --并删除临时文件夹，然后退出安装程序。
     
234. 
     
235. PerformCleanUp();
     
236. 
     
237. --全部完成！
     
238. 
     
239. SetupData.WriteToLogFile("成功/tdotnet2_0模块：dotnet2_0运行时未安装。/r/n",true);
     
240. 
     
241. Application.Exit();
     
242. 
     
243. end
     
244. 
     
245. </ InstallScript >
     
246. 
     
247. < SupportFiles >
     
248. 
     
249. < File > #SUFDIR#/Dependencies/dotnet2_0/dotnetfx.exe </ File >
     
250. 
     
251. </ SupportFiles >
     
252. 
     
253. </ Dependency >
     
254. 
     
255. </ DependencyTemplate >

复制代码

==========================================================================
制作安装程序，无非是复制文件、注册控件、注册服务、修改设置项（注册表、配置文件）等等。通过一些专门的安装制作软件不难做出一个专业的安装程序。

.net下的WinForm程序，制作安装包需要做些什么呢？
典型情况下可能需要做如下事情：

1、判断客户机是否安装了.net framework

2、复制程序文件

3、将某些控件加入到全局应用程序缓存（GAC），比如第三方的控件或是自己定义的具有强名称的控件

4、安装时的默认设置项，比如程序的配置文件、或修改注册表等

5、创建快捷方式、软件的卸载

制作安装程序的工具比较多，常见的比如InstallShield、Wise Install、以及VS本身自带安装程序制作功能，前2个都是专业级的安装制作工具，所以安装文件也是巨大。这里我们推荐一款制作安装程序的软件Setup factory7.0，使用这个软件能够轻松的制作出一个专业的安装程序，它内置一种跟VBS类似的脚本语言，通过编写action脚本，能够实现比较强大的一些，比如从网上下载一些需要的安装文件。

对于Setup factory7.0的一般性使用这里就不详细介绍了，自己稍微摸索一下就知道了。我只介绍一下关于如何判断是否安装了.net framework及自动下载框架的安装文件并安装、如何修改注册表项、自定义安装界面等。

1、如何判断是否安装了.net framework

这里是判断注册表中是否存在框架的注册项。需要在Setup factory中的工程-操作的OnStartup事件中写如下代码：

1. -- 判断是否安装了.net框架
   
2. hasInstalled = Registry.DoesKeyExist(HKEY_LOCAL_MACHINE, " Software/Microsoft/.NETFramework " );
   
3. if hasInstalled == false then
   
4. result = Dialog.Message( " 安装提示 " , " 运行本软件需要安装.Net框架1.1版，是否从网络中下载并安装？ " ,MB_YESNO,MB_ICONQUESTION,MB_DEFBUTTON1)
   
5. if result == IDYES then
   
6. isExists = HTTP.TestConnection( " http://www.zhangyongjun.com/fdown/uploadfile/dotnetfx.exe " , 90 , 80 );
   
7. if isExists == true then
   
8. -- ShowtheStatusDlg
   
9. StatusDlg.Show(MB_ICONINFORMATION, false );
   
10. StatusDlg.ShowCancelButton( true , " 取消 " );
    
11. 
    
12. -- Set statusdlgtitle and message
    
13. StatusDlg.SetTitle( " 下载所需文件... " );
    
14. -- Set meterrange(maxrange = 65534 )
    
15. StatusDlg.SetMeterRange( 0 , 100 );
    
16. -- Downloadafilefromtheinternet to theuser ' scomputer
    
17. -- UsesDownloadCallback() as thecallback function
    
18. HTTP.Download( " http://www.zhangyongjun.com/fdown/uploadfile/dotnetfx.exe " ,SessionVar.Expand( " %TempFolder%/dotnetfx.exe " ),MODE_BINARY, 20 , 80 ,nil,nil,DownloadCallback);
    
19. 
    
20. -- HidetheStatusDlg
    
21. StatusDlg.Hide();
    
22. Shell.Execute(SessionVar.Expand( " %TempFolder%/dotnetfx.exe " ), " open " , "" , "" ,SW_SHOWNORMAL)
    
23. else
    
24. Dialog.Message( " 错误提示 " , " 下载文件失败，可能服务器已停止服务。请从Microsoft网站上下载.NetFramework1.1。 " ,MB_ICONEXCLAMATION);
    
25. Application.Exit( 0 );
    
26. end
    
27. else
    
28. Application.Exit( 0 );
    
29. end
    
30. end
    
31. 
    
32. -- Callback function for HTTP.Download
    
33. function DownloadCallback(nDownloaded,nTotal,TransferRate,SecondLeft,SecondsLeftFormat,Message)
    
34. -- Converttotal and downloadedbytesintoformattedstrings
    
35. sDownloaded = String .GetFormattedSize(nDownloaded,FMTSIZE_AUTOMATIC, true );
    
36. sTotal = String .GetFormattedSize(nTotal,FMTSIZE_AUTOMATIC, true );
    
37. -- Output time left ,formatted.
    
38. StatusDlg.SetMessage( " 正在下载文件...剩余时间: " ..SecondsLeftFormat);
    
39. -- Outputformattedsizes to userthroughstatusdlgstatustext
    
40. StatusDlg.SetStatusText( " 已下载: " ..sDownloaded.. " / " ..sTotal);
    
41. -- Set meterposition(fractiondownloaded * maxmeterrange)
    
42. StatusDlg.SetMeterPos((nDownloaded / nTotal) * 100 );
    
43. end

复制代码

2、操作注册表

在定制安装界面中，可以添加一个界面，选择界面类型，并且能够自定义界面上的操作事件，比如在OnPreload、OnNext、OnBack、OnCancel、OnHelp编写脚本以实现特定的功能，下面的代码是实现在自定义的配置设置界面中用户填写完配置信息后，点“下一步”时，将填写的信息写入到注册表，其中CTRL_EDIT_01等为编辑控件（这里是文本框）的ID。

1. -- 这些操作在点击“下一步”按钮时执行。
   
2. -- 提示：你可以在这里添加验证用户输入信息的操作
   
3. Registry.CreateKey(HKEY_LOCAL_MACHINE, " Software/FengcheSoft/TradeSystem " );
   
4. tEditFieldServer = DlgEditField.GetProperties(CTRL_EDIT_01);
   
5. tEditFieldDBUser = DlgEditField.GetProperties(CTRL_EDIT_02);
   
6. -- Debug.ShowWindow( true );
   
7. 
   
8. Registry.SetValue(HKEY_LOCAL_MACHINE, " Software/FengcheSoft/TradeSystem " , " ServerName " ,tEditFieldServer.Text,REG_SZ);
   
9. Registry.SetValue(HKEY_LOCAL_MACHINE, " Software/FengcheSoft/TradeSystem " , " DBUser " ,DlgEditField.GetProperties(CTRL_EDIT_02).Text,REG_SZ);
   
10. Registry.SetValue(HKEY_LOCAL_MACHINE, " Software/FengcheSoft/TradeSystem " , " DBPwd " ,DlgEditField.GetProperties(CTRL_EDIT_03).Text,REG_SZ);
    
11. Registry.SetValue(HKEY_LOCAL_MACHINE, " Software/FengcheSoft/TradeSystem " , " DBName " ,DlgEditField.GetProperties(CTRL_EDIT_04).Text,REG_SZ);
    
12. 
    
13. Debug.Print(tEditFieldServer.Text);
    
14. test = Registry.GetValue(HKEY_LOCAL_MACHINE, " Software/FengcheSoft/TradeSystem " , " ServerName " , true );
    
15. Debug.Print(test);
    
16. -- 进入下一个屏幕
    
17. Screen.Next();

复制代码