InstallShield 实现二次安装时的覆盖安装

admin

实现点
覆盖安装(note : InstallShield本来就提供, 需要注意的是 : InstallShield工程的新版本要增加版本号,不能是原来的版本号. 打包用的PE文件版本号需要比已经安装的PE文件版本号高, 而且必须要是改前三位版本号,不能改第四位版本号. 否则不能覆盖安装. e.g. 旧PE版本号 1.0.1.0, 新版本号码不能为1.0.1.9, 可以为 9.0.1.0, 1.9.1.0, 1.0.9.0)
对已经安装的旧版本进行检测, 通过查InstallShield自带帮助, 翻了好久,发现可以用 MAINTENANCE 来判断
当用户选择安装时,直接安装. 我采用了跳过 OnMaintUIBefore() 中 SdWelcomeMaint, 直接对 nType 赋值成 REPAIR, 来实现
当用户选择不安装时, 在 OnFirstUIBefore() 和 OnMaintUIBefore() 处 abort 实现安装程序退出.

1. #include "ifx.h"
   
2. 
   
3. prototype IsProductWasInstalled();
   
4. prototype GetUnInstallExePathName(BYREF STRING);
   
5. prototype RunUnInstallExe();
   
6. 
   
7. BOOL g_bSetupNow; ///< 如果旧版程序已经安装, 记录用户选择(是否覆盖安装)
   
8. 
   
9. function OnBegin()
   
10. begin
    
11.     // TODO: Perform custom initialization steps, check requirements, etc.
    
12.     g_bSetupNow = TRUE;
    
13.     if IsProductWasInstalled() then
    
14.         if (AskYesNo("已经发现本软件已经被安装!\r\n" + "是否继续安装?", YES) = NO) then
    
15.             g_bSetupNow = FALSE; ///< 用户选择不安装
    
16.             // RunUnInstallExe();
    
17.         endif;
    
18.     endif;
    
19. end;                              
    
20. 
    
21. function IsProductWasInstalled()
    
22.     BOOL bRc;
    
23. begin
    
24.     if (MAINTENANCE != 0) then
    
25.         // 产品已经被安装过
    
26.         bRc = TRUE;
    
27.     else
    
28.         // 产品首次被安装(还没有被安装，本次安装是首次)
    
29.         bRc = FALSE;
    
30.     endif;                    
    
31. 
    
32.     return bRc;
    
33. end;      
    
34. 
    
35. function GetUnInstallExePathName(strPathName)
    
36.     BOOL bRc;
    
37. begin                              
    
38.     if (RegDBGetItem(REGDB_UNINSTALL_MODIFYPATH, strPathName) < 0) then
    
39.         bRc = FALSE;
    
40.     else  
    
41.         bRc = TRUE;
    
42.     endif;
    
43. 
    
44.     return bRc;
    
45. end;        
    
46. 
    
47. function RunUnInstallExe()
    
48.     STRING strUnInstallPathName;
    
49. begin
    
50. /**
    
51.         if (GetUnInstallExePathName(strUnInstallPathName)) then
    
52.             LaunchAppAndWait(strUnInstallPathName, "", WAIT);
    
53.         endif;
    
54.         */
    
55.         ComponentRemoveAll();
    
56. end;
    
57. //---------------------------------------------------------------------------                                                                        
    
58. // OnFirstUIBefore
    
59. //
    
60. // First Install UI Sequence - Before Move Data
    
61. //
    
62. // The OnFirstUIBefore event is called by OnShowUI when the setup is
    
63. // running in first install mode. By default this event displays UI allowing
    
64. // the end user to specify installation parameters.
    
65. //
    
66. // Note: This event will not be called automatically in a
    
67. // program...endprogram style setup.
    
68. //---------------------------------------------------------------------------
    
69. function OnFirstUIBefore()
    
70.     number  nResult, nLevel, nSize, nSetupType;
    
71.     string  szTitle, szMsg, szOpt1, szOpt2, szLicenseFile;
    
72.     string  szName, szCompany, szTargetPath, szDir, szFeatures;
    
73.     BOOL    bLicenseAccepted;
    
74. begin   
    
75. 
    
76.     /// 不安装时的处理 : 退出安装程序                                    
    
77.     if (g_bSetupNow == FALSE) then
    
78.         abort;
    
79.     endif;
    
80. 
    
81.     // Added in InstallShield 15 - Show an appropriate error message if
    
82.     // -removeonly is specified and the product is not installed.
    
83.     if( REMOVEONLY ) then
    
84.         Disable( DIALOGCACHE );
    
85.         szMsg = SdLoadString( IDS_IFX_ERROR_PRODUCT_NOT_INSTALLED_UNINST );
    
86.         SdSubstituteProductInfo( szMsg );
    
87.         MessageBox( szMsg, SEVERE );
    
88.         abort;
    
89.     endif;
    
90. 
    
91.     nSetupType = COMPLETE;  
    
92.     szDir = TARGETDIR;
    
93.     szName = "";
    
94.     szCompany = "";
    
95.     bLicenseAccepted = FALSE;
    
96. 
    
97. // Beginning of UI Sequence
    
98. Dlg_Start:
    
99.     nResult = 0;
    
100. 
     
101. Dlg_SdWelcome:
     
102.     szTitle = "";
     
103.     szMsg = "";
     
104.     //{{IS_SCRIPT_TAG(Dlg_SdWelcome)
     
105.     nResult = SdWelcome( szTitle, szMsg );
     
106.     //}}IS_SCRIPT_TAG(Dlg_SdWelcome)
     
107.     if (nResult = BACK) goto Dlg_Start;
     
108. 
     
109. Dlg_SdLicense2:
     
110.     szTitle = "";
     
111.     szOpt1 = "";
     
112.     szOpt2 = "";
     
113.     //{{IS_SCRIPT_TAG(License_File_Path)
     
114.     szLicenseFile = SUPPORTDIR ^ "License.rtf";
     
115.     //}}IS_SCRIPT_TAG(License_File_Path)
     
116.     //{{IS_SCRIPT_TAG(Dlg_SdLicense2)
     
117.     nResult = SdLicense2Ex( szTitle, szOpt1, szOpt2, szLicenseFile, bLicenseAccepted, TRUE );
     
118.     //}}IS_SCRIPT_TAG(Dlg_SdLicense2)
     
119.     if (nResult = BACK) then
     
120.         goto Dlg_SdWelcome;
     
121.     else
     
122.         bLicenseAccepted = TRUE;
     
123.     endif;
     
124. 
     
125. Dlg_SdRegisterUser:
     
126.     szMsg = "";
     
127.     szTitle = "";
     
128.     //{{IS_SCRIPT_TAG(Dlg_SdRegisterUser)   
     
129.     nResult = SdRegisterUser( szTitle, szMsg, szName, szCompany );
     
130.     //}}IS_SCRIPT_TAG(Dlg_SdRegisterUser)
     
131.     if (nResult = BACK) goto Dlg_SdLicense2;
     
132. 
     
133. Dlg_SetupType2:   
     
134.     szTitle = "";
     
135.     szMsg = "";
     
136.     nResult = CUSTOM;
     
137.     //{{IS_SCRIPT_TAG(Dlg_SetupType2)   
     
138.     nResult = SetupType2( szTitle, szMsg, "", nSetupType, 0 );
     
139.     //}}IS_SCRIPT_TAG(Dlg_SetupType2)
     
140.     if (nResult = BACK) then
     
141.         goto Dlg_SdRegisterUser;
     
142.     else
     
143.         nSetupType = nResult;
     
144.         if (nSetupType != CUSTOM) then
     
145.             szTargetPath = TARGETDIR;
     
146.             nSize = 0;
     
147.             FeatureCompareSizeRequired( MEDIA, szTargetPath, nSize );
     
148.             if (nSize != 0) then      
     
149.                 MessageBox( szSdStr_NotEnoughSpace, WARNING );
     
150.                 goto Dlg_SetupType2;
     
151.             endif;
     
152.         endif;   
     
153.     endif;
     
154. 
     
155. Dlg_SdAskDestPath2:
     
156.     if ((nResult = BACK) && (nSetupType != CUSTOM)) goto Dlg_SetupType2;
     
157.     szTitle = "";
     
158.     szMsg = "";
     
159.     if (nSetupType = CUSTOM) then
     
160.                 //{{IS_SCRIPT_TAG(Dlg_SdAskDestPath2)   
     
161.         nResult = SdAskDestPath2( szTitle, szMsg, szDir );
     
162.                 //}}IS_SCRIPT_TAG(Dlg_SdAskDestPath2)
     
163.         TARGETDIR = szDir;
     
164.     endif;
     
165.     if (nResult = BACK) goto Dlg_SetupType2;
     
166. 
     
167. Dlg_SdFeatureTree:
     
168.     if ((nResult = BACK) && (nSetupType != CUSTOM)) goto Dlg_SdAskDestPath2;
     
169.     szTitle = "";
     
170.     szMsg = "";
     
171.     szFeatures = "";
     
172.     nLevel = 2;
     
173.     if (nSetupType = CUSTOM) then
     
174.         //{{IS_SCRIPT_TAG(Dlg_SdFeatureTree)   
     
175.         nResult = SdFeatureTree( szTitle, szMsg, TARGETDIR, szFeatures, nLevel );
     
176.         //}}IS_SCRIPT_TAG(Dlg_SdFeatureTree)
     
177.         if (nResult = BACK) goto Dlg_SdAskDestPath2;  
     
178.     endif;
     
179. 
     
180. Dlg_SQLServer:
     
181.     nResult = OnSQLServerInitialize( nResult );
     
182.     if( nResult = BACK ) goto Dlg_SdFeatureTree;
     
183. 
     
184. Dlg_ObjDialogs:
     
185.     nResult = ShowObjWizardPages( nResult );
     
186.     if (nResult = BACK) goto Dlg_SQLServer;
     
187. 
     
188. Dlg_SdStartCopy2:
     
189.     szTitle = "";
     
190.     szMsg = "";
     
191.     //{{IS_SCRIPT_TAG(Dlg_SdStartCopy2)
     
192.     nResult = SdStartCopy2( szTitle, szMsg );   
     
193.     //}}IS_SCRIPT_TAG(Dlg_SdStartCopy2)
     
194.     if (nResult = BACK) goto Dlg_ObjDialogs;
     
195. 
     
196.     // Added in 11.0 - Set appropriate StatusEx static text.
     
197.     SetStatusExStaticText( SdLoadString( IDS_IFX_STATUSEX_STATICTEXT_FIRSTUI ) );
     
198. 
     
199.     return 0;
     
200. end;
     
201. //---------------------------------------------------------------------------
     
202. // OnMaintUIBefore
     
203. //
     
204. // Maintenance UI Sequence - Before Move Data
     
205. //
     
206. // The OnMaintUIBefore event is called by OnShowUI when the setup is
     
207. // running in maintenance mode. By default this event displays UI that
     
208. // allows the end user to add or remove features, repair currently
     
209. // installed features or uninstall the application.
     
210. //
     
211. // Note: This event will not be called automatically in a
     
212. // program...endprogram style setup.
     
213. //---------------------------------------------------------------------------
     
214. function OnMaintUIBefore()
     
215.     number  nResult, nType;
     
216.     string  szTitle, szMsg;
     
217. begin
     
218. 
     
219.     /// 不安装时的处理 : 退出安装程序                          
     
220.     if (g_bSetupNow == FALSE) then
     
221.         abort;
     
222.     endif;
     
223. 
     
224.     // nType defaults to MODIFY.
     
225.     nType = REPAIR; ///< 只有选修复, 才能实现覆盖安装
     
226. 
     
227.     //Initialize SQL
     
228.     OnSQLServerInitializeMaint();
     
229. 
     
230. // Beginning of UI Sequence
     
231. Dlg_Start:
     
232. 
     
233.     // Added in Version 9.5 - Support for REMOVEONLY option.
     
234.     if( !REMOVEONLY ) then
     
235.         // In standard mode show maintenance dialog
     
236.         Disable( BACKBUTTON );   
     
237.         /// 不让用户选择, 直接进行"修复", 实现覆盖安装
     
238.         // nType = SdWelcomeMaint( szTitle, szMsg, nType );
     
239.         Enable( BACKBUTTON );
     
240.         nResult = NEXT;
     
241.     else
     
242.         // Hide the initial progress dialog as otherwise the user can
     
243.         // click on it, and hide the MessageBox.
     
244.         Disable( DIALOGCACHE );
     
245. 
     
246.         // In RemoveOnly mode, set to remove.
     
247.         nType = REMOVEALL;
     
248.     endif;
     
249. 
     
250.     // Show Uninstall Confirmation Dialog
     
251.     if ( nType = REMOVEALL ) then
     
252.         nResult = MessageBox( SdLoadString( IFX_MAINTUI_MSG ), MB_YESNO );
     
253.         if (nResult != IDYES ) then
     
254. 
     
255.             if( REMOVEONLY ) then
     
256.                 // In REMOVEONLY mode, abort the setup.
     
257.                 abort;
     
258.             else
     
259.                 // In non-REMOVEONLY mode, redisplay the previous dialog.
     
260.                 goto Dlg_Start;
     
261.             endif;
     
262. 
     
263.         endif;
     
264.     endif;
     
265. 
     
266. Dlg_SdFeatureTree:
     
267.     if ( nType = MODIFY ) then
     
268.         szTitle = "";
     
269.         szMsg = SdLoadString( SD_STR_COMPONENT_MAINT_MSG );
     
270.         nResult = SdFeatureTree( szTitle, szMsg, TARGETDIR, "", -1 );
     
271.         if ( nResult = BACK ) goto Dlg_Start;
     
272.     endif;
     
273. 
     
274. Dlg_ObjDialogs:
     
275.     nResult = ShowObjWizardPages( nResult );
     
276.     if ( ( nResult = BACK ) && ( nType != MODIFY ) ) goto Dlg_Start;
     
277.     if ( ( nResult = BACK ) && ( nType = MODIFY ) ) goto Dlg_SdFeatureTree;
     
278. 
     
279.     switch(nType)
     
280. 
     
281.         case REMOVEALL:
     
282. 
     
283.             // Ensure that all previously installed features are removed.
     
284.             FeatureRemoveAllInMediaAndLog();
     
285. 
     
286.             // Added in 11.0 - Set appropriate StatusEx static text.
     
287.             SetStatusExStaticText( SdLoadString( IDS_IFX_STATUSEX_STATICTEXT_MAINTUI_REMOVEALL ) );
     
288. 
     
289.         case REPAIR:
     
290. 
     
291.             // Changed for DevStudio 9, Disk1 files are now always updated when installed
     
292.             // so when running from ADDREMOVE we need to prevent these files from being
     
293.             // updated since this will result in files being updated that are locked by the setup.
     
294.             // Updating these files when running from ADDREMOVE should not be needed since updates
     
295.             // are not run directly from Add/Remove.
     
296.             if( ADDREMOVE ) then
     
297.                 // Reinstall all previously installed features, except
     
298.                 // disk1 features.
     
299.                 FeatureUpdate( "" );
     
300.             else
     
301.                 // Reinstall all previously installed features.
     
302.                 FeatureReinstall();
     
303.             endif;
     
304. 
     
305.             // Added in 11.0 - Set appropriate StatusEx static text.
     
306.             SetStatusExStaticText( SdLoadString( IDS_IFX_STATUSEX_STATICTEXT_MAINTUI_REPAIR ) );
     
307. 
     
308.         case MODIFY:
     
309. 
     
310.             // Added in 11.0 - Set appropriate StatusEx static text.
     
311.             SetStatusExStaticText( SdLoadString( IDS_IFX_STATUSEX_STATICTEXT_MAINTUI_MODIFY ) );
     
312. 
     
313.     endswitch;
     
314. 
     
315. end;
     
316. //---------------------------------------------------------------------------
     
317. // OnMoveData
     
318. //
     
319. // The OnMoveData event is called by OnShowUI to initiate the file
     
320. // transfer of the setup.
     
321. //
     
322. // Note: This event will not be called automatically in a
     
323. // program...endprogram style setup.
     
324. //---------------------------------------------------------------------------
     
325. function OnMoveData()
     
326. number  nResult, nMediaFlags;
     
327. begin
     
328. 
     
329.     // Don't install the DISK1COMPONENT if MAINT_OPTION_NONE was specified.
     
330.     if( MAINT_OPTION = MAINT_OPTION_NONE ) then
     
331.         FeatureSelectItem( MEDIA, DISK1COMPONENT, FALSE );
     
332.     endif;
     
333. 
     
334.     // Updated in 11.5, disable the cancel button during file transfer unless
     
335.     // this is non-maintenance mode or repair mode.
     
336.     if( MAINTENANCE && ( !REINSTALLMODE || UPDATEMODE ) ) then
     
337.         Disable( CANCELBUTTON );
     
338.     endif;
     
339. 
     
340.     // Show Status
     
341.     // Note: Start status window at 1 in case CreateInstallationInfo call
     
342.     // is lengthy.
     
343.     SetStatusWindow( 1, "" );
     
344.     Enable( STATUSEX );
     
345.     StatusUpdate( ON, 100 );
     
346. 
     
347.     // Create the uninstall infomation (after displaying the progress dialog)
     
348.     // Don't create uninstall information if MAINT_OPTION_NONE was specified.
     
349.     if( MAINT_OPTION != MAINT_OPTION_NONE ) then
     
350.         CreateInstallationInfo();
     
351.     endif;
     
352. 
     
353.     // Move Data
     
354.     nResult = FeatureTransferData( MEDIA );
     
355. 
     
356.     // Moved in 11.0, Check for failure before creating uninstall key.
     
357.     // Handle move data error and abort if error occured.
     
358.     if( nResult < ISERR_SUCCESS ) then
     
359.         OnComponentError();
     
360.         abort;
     
361.     endif;      
     
362. 
     
363.     // Create uninstall key, if DISK1COMPONENT was installed.
     
364.     if( IFX_DISK1INSTALLED ) then
     
365. 
     
366.         // Store text-subs for maintenance mode later, only do this when
     
367.         // disk 1 is installed. Note that any text-subs that are updated after
     
368.         // this call will not be remembered during maintenance mode.
     
369.         FeatureSaveTarget("");
     
370. 
     
371.         // Write uninstall information.
     
372.         MaintenanceStart();
     
373. 
     
374.         // Customize Uninstall Information
     
375.         OnCustomizeUninstInfo();
     
376. 
     
377.     endif;
     
378. 
     
379.     // Disable Status
     
380.     Disable( STATUSEX );
     
381. 
     
382. end;

复制代码