Installshield 新版本安装时卸载旧版本的安装

admin

安装包升级问题，搞得实在头大，经过反复摸索，最终决定卸载旧的安装，安装新的程序，以达到升级目的。本方案有所局限，对于大型的安装或者配置复杂的安装不适合。本案例用IS2009，InstallScript MSI工程建立测试的。
比如：已安装1.0.0.1版本的程序，现在做了个新的1.0.0.2版本的程序。那么在第一个版本里我们就要开始做以下工作，并在以后版本要记得更改产品ID。
首先，我们需要声明两个方法：
export prototype UninstallOldVersion(); //卸载旧版本
export prototype WriteInstallGuid();//将本安装包的GUID写入注册表
在OnBegin函数里,写判断是否有旧的安装：
声明以下自定义变量

1. string szNumName,szNumValue;
   
2. number nType,nSize;
   
3. //旧的安装GUID
   
4. RegDBSetDefaultRoot(HKEY_LOCAL_MACHINE);
   
5. if(RegDBKeyExist(szKey)>0)then
   
6.   szNumName="Test";
   
7.   nType=REGDB_STRING;
   
8.   RegDBGetKeyValueEx(szKey,szNumName,nType,szNumValue,nSize);
   
9.   oldGuid= szNumValue;//获取旧安装的产品ID
   
10. endif;  

复制代码

写一个卸载函数:

1. function UninstallOldVersion()
   
2. string szPath,UninstallString;
   
3. string szNumName,szNumValue;
   
4. number nType,nSize;
   
5. begin      
   
6. 　　szPath=WINDIR+"Installer\"+oldGuid;
   
7. 　　RegDBSetDefaultRoot(HKEY_LOCAL_MACHINE);
   
8. 　　UninstallString="\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall\\InstallShield_"+oldGuid;
   
9. 　　nType=REGDB_STRING;
   
10. 　　szNumName="UninstallString";
    
11. 　　RegDBGetKeyValueEx(UninstallString,szNumName,nType,szNumValue,nSize); //获取卸载脚本   
    
12. 　　if(RegDBKeyExist(UninstallString)>0) then   
    
13. 　　　　if(AskYesNo("Install the software detects an earlier version, in order to ensure the software is installed correctly uninstall that version!",NO)=YES) then   
    
14.    　　　SdShowMsg("Uninstalling the program, please wait ...",TRUE);   
    
15. 　　     Delay(1);   
    
16.   　　 　LaunchAppAndWait(szNumValue," /S",LAAW_OPTION_WAIT);      
    
17.            //刷新注册表      
    
18.            LaunchAppAndWait ( "","cmd /c gpupdate /force /wait:0 ",LAAW_OPTION_WAIT|LAAW_OPTION_HIDDEN);  
    
19.            SdShowMsg("", FALSE);   
    
20.            SdShowMsg("Uninstall is complete",TRUE);     
    
21.            Delay(2);      
    
22. 　　    SdShowMsg("", FALSE);   
    
23. 　　　 LaunchAppAndWait( WINSYSDIR^"cmd.exe", "/c rd /s/q ""+szPath+""", LAAW_OPTION_WAIT | LAAW_OPTION_HIDDEN);  
    
24.    else
    
25.   　　  abort;
    
26.   endif;
    
27. endif;
    
28. end;

复制代码

我们在OnFirstUIBefore里调用UninstallOldVersion函数，以执行卸载操作；
对于安装包GUID在OnFirstUIAfter里进行写入，在OnFirstUIAfter调用WriteInstallGuid函数，以下为WriteInstallGuid函数脚本：

1. function WriteInstallGuid()
   
2. string svSubStr,productCode;
   
3. number nRootKey,nType;
   
4. begin
   
5.      //写注册表
   
6.     if(OS32=TRUE) then//判断32位还是64位
   
7.   StrSub(svSubStr,UNINSTALL_STRING,57,38); //获取guid  
   
8. else
   
9.   StrSub(svSubStr,UNINSTALL_STRING,63,38);
   
10. endif;
    
11. productCode=svSubStr;
    
12. nRootKey=HKEY_LOCAL_MACHINE;
    
13. RegDBSetDefaultRoot(nRootKey);
    
14. nType=REGDB_STRING;
    
15. RegDBSetKeyValueEx(szKey,"Test",nType,productCode,-1);   
    
16. end;

复制代码

附上工程所有脚本：

1. //===========================================================================
   
2. 
   
3. // Included header files ----------------------------------------------------
   
4. #include "ifx.h"
   
5. //卸载旧的安装
   
6. #define szKey "SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall\\Infomedia_Dog\"  
   
7. string oldGuid;
   
8. BOOL OS64,OS32;
   
9. //获取安装包位置
   
10. STRING SETUPEXEDIR[MAX_PATH + 1];
    
11. string setupDIR;
    
12. number  nBuffer;  
    
13. 
    
14. export prototype UninstallOldVersion(); //卸载旧版本
    
15. export prototype WriteInstallGuid();//将本安装包的GUID写入注册表
    
16. //---------------------------------------------------------------------------
    
17. // OnBegin
    
18. //
    
19. // The OnBegin event is called directly by the framework after the setup
    
20. // initializes.
    
21. //---------------------------------------------------------------------------
    
22. function OnBegin()
    
23. string szNumName,szNumValue;
    
24. number nType,nSize;
    
25. begin  
    
26.     SetTitle(IFX_PRODUCT_NAME + " -Infomedia", 0, BACKGROUNDCAPTION);  
    
27.     //安装包路径
    
28.     nBuffer=MAX_PATH+1;
    
29.     MsiGetProperty(ISMSI_HANDLE,"SETUPEXEDIR",SETUPEXEDIR,nBuffer);
    
30.        setupDIR= SETUPEXEDIR+"\\DogSetup.exe";  
    
31.        //判断操作系统
    
32.      if (SYSINFO.bIsWow64) then
    
33.           OS64=TRUE;
    
34.      else
    
35.           OS32=TRUE;
    
36.      endif;
    
37.     //旧的安装GUID
    
38.     RegDBSetDefaultRoot(HKEY_LOCAL_MACHINE);
    
39.     if(RegDBKeyExist(szKey)>0)then
    
40.         szNumName="Dog";
    
41.         nType=REGDB_STRING;
    
42.         RegDBGetKeyValueEx(szKey,szNumName,nType,szNumValue,nSize);
    
43.         oldGuid= szNumValue;
    
44.         
    
45.     endif;   
    
46. end;  
    
47. 
    
48. function UninstallOldVersion()  
    
49. string szPath,UninstallString;
    
50. string szNumName,szNumValue;
    
51. number nType,nSize;
    
52. begin      
    
53. szPath=WINDIR+"Installer\"+oldGuid;
    
54. 
    
55. RegDBSetDefaultRoot(HKEY_LOCAL_MACHINE);
    
56. UninstallString="\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall\\InstallShield_"+oldGuid;
    
57. nType=REGDB_STRING;
    
58. szNumName="UninstallString";
    
59. RegDBGetKeyValueEx(UninstallString,szNumName,nType,szNumValue,nSize); //获取卸载脚本
    
60.     if(RegDBKeyExist(UninstallString)>0) then   
    
61.         if(AskYesNo("Install the software detects an earlier version, in order to ensure the software is installed correctly uninstall that version!",NO)=YES) then   
    
62.                 SdShowMsg("Uninstalling the program, please wait ...",TRUE);
    
63.                 Delay(1);
    
64.                 LaunchAppAndWait(szNumValue," /S",LAAW_OPTION_WAIT);                 
    
65.                 //DeleteDir("C:\\Program Files (x86)\\InstallShield Installation Information\"+oldGuid,ALLCONTENTS);
    
66.                 //刷新注册表
    
67.                 LaunchAppAndWait ( "","cmd /c gpupdate /force /wait:0 ",LAAW_OPTION_WAIT|LAAW_OPTION_HIDDEN);   
    
68.                 SdShowMsg("", FALSE);
    
69.                    SdShowMsg("Uninstall is complete",TRUE);
    
70.                 Delay(2);
    
71.                 SdShowMsg("", FALSE);
    
72.                 LaunchAppAndWait( WINSYSDIR^"cmd.exe", "/c rd /s/q ""+szPath+""", LAAW_OPTION_WAIT | LAAW_OPTION_HIDDEN);
    
73.         else
    
74.             abort;
    
75.         endif;
    
76.     endif;   
    
77. end;
    
78. 
    
79. function OnFirstUIBefore()
    
80.     NUMBER nResult, nSetupType, nvSize, nUser;
    
81.     STRING szTitle, szMsg, szQuestion, svName, svCompany, szFile;
    
82.     STRING szLicenseFile;
    
83.     BOOL bCustom, bIgnore1, bIgnore2;
    
84. begin   
    
85.     UninstallOldVersion();
    
86.     if( REMOVEONLY ) then
    
87.         Disable( DIALOGCACHE );
    
88.         szMsg = SdLoadString( IDS_IFX_ERROR_PRODUCT_NOT_INSTALLED_UNINST );
    
89.            SdSubstituteProductInfo( szMsg );
    
90.         MessageBox( szMsg, SEVERE );
    
91.         abort;
    
92.     endif;
    
93.    
    
94.     nSetupType = TYPICAL;   
    
95. 
    
96. 
    
97. Dlg_SdAskDestPath:        
    
98.     nResult = SdAskDestPath(szTitle, szMsg, INSTALLDIR, 0);
    
99.     if (nResult = BACK) goto Dlg_SdAskDestPath;
    
100. 
     
101. Dlg_ValueAddedServices:
     
102.     nResult = OnFirstUIBeforeValueAddedServices( nResult );
     
103.     if (nResult = BACK) goto Dlg_SdAskDestPath;
     
104. 
     
105. Dlg_SdStartCopy:
     
106.     // Added in IS 2009 - Set appropriate StatusEx static text.
     
107.     SetStatusExStaticText( SdLoadString( IDS_IFX_STATUSEX_STATICTEXT_FIRSTUI ) );
     
108. 
     
109.     // setup default status
     
110.     Enable(STATUSEX);
     
111. 
     
112.     return 0;
     
113. end;   
     
114. //---------------------------------------------------------------------------
     
115. // OnFirstUIAfter
     
116. //
     
117. // The OnFirstUIAfter event called by the framework after the file transfer
     
118. // of the setup when the setup is running in first install mode. By default
     
119. // this event displays UI that informs the end user that the setup has been
     
120. // completed successfully.
     
121. //---------------------------------------------------------------------------
     
122. function OnFirstUIAfter()
     
123.     STRING szTitle, szMsg1, szMsg2, szOpt1, szOpt2;
     
124.     NUMBER bOpt1, bOpt2;
     
125. begin
     
126.     Disable(STATUSEX);
     
127. 
     
128.     bOpt1   = FALSE;
     
129.     bOpt2   = FALSE;
     
130.     LaunchAppAndWait(TARGETDIR^"reg.bat","",LAAW_OPTION_WAIT|LAAW_OPTION_HIDDEN);   
     
131.     LaunchAppAndWait(TARGETDIR^"Raindog_Register.exe","",NOWAIT);  
     
132.      WriteInstallGuid();//写注册表
     
133.     if ( BATCH_INSTALL ) then
     
134.         SdFinishReboot ( szTitle , szMsg1 , SYS_BOOTMACHINE , szMsg2 , 0 );
     
135.     else
     
136.        // SdFinish ( szTitle , szMsg1 , szMsg2 , szOpt1 , szOpt2 , bOpt1 , bOpt2 );
     
137.     endif;
     
138. end;
     
139. //---------------------------------------------------------------------------
     
140. // OnMaintUIBefore
     
141. //
     
142. // The OnMaintUIBefore event is called by the framework when the setup is
     
143. // running in maintenance mode. By default this event displays UI that
     
144. // allows the end user to add or remove features, repair currently
     
145. // installed features or uninstall the application.
     
146. //---------------------------------------------------------------------------
     
147. function OnMaintUIBefore()
     
148.     NUMBER nResult, nType,nBuffer;
     
149.     STRING szTitle, szMsg, svDir, svResult, szCaption;  
     
150.     string setupDIR;
     
151. begin
     
152.     Dlg_Start:
     
153.     if( !REMOVEONLY ) then
     
154.       if(AskYesNo("Already installed, and whether to delete in order to continue?",YES)=NO) then
     
155.          abort;
     
156.       else
     
157.           ComponentRemoveAll();      
     
158.          SetStatusExStaticText( SdLoadString( IDS_IFX_STATUSEX_STATICTEXT_MAINTUI_REMOVEALL ) );   
     
159.       endif;
     
160.     else
     
161.          ComponentRemoveAll();
     
162.         SetStatusExStaticText( SdLoadString( IDS_IFX_STATUSEX_STATICTEXT_MAINTUI_REMOVEALL ) );      
     
163.     endif;  
     
164.     // setup default status
     
165.     SetStatusWindow(0, "");
     
166.     Enable(STATUSEX);
     
167.     StatusUpdate(ON, 100);
     
168. end;
     
169. 
     
170. //---------------------------------------------------------------------------
     
171. // OnMaintUIAfter
     
172. //
     
173. // The OnMaintUIAfter event called by the framework after the file transfer
     
174. // of the setup when the setup is running in maintenance mode. By default
     
175. // this event displays UI that informs the end user that the maintenance setup
     
176. // has been completed successfully.
     
177. //---------------------------------------------------------------------------
     
178. function OnMaintUIAfter()
     
179.     STRING szTitle, szMsg1, szMsg2, szOpt1, szOpt2;
     
180.     NUMBER bOpt1, bOpt2;
     
181. begin
     
182.     Disable(STATUSEX);
     
183.    
     
184.     if( REMOVEALLMODE ) then
     
185.         szTitle = SdLoadString(IFX_SDFINISH_REMOVE_TITLE);
     
186.         szMsg1 = SdLoadString(IFX_SDFINISH_REMOVE_MSG1);
     
187.     else
     
188.         szTitle = SdLoadString(IFX_SDFINISH_MAINT_TITLE);   
     
189.         szMsg1  = SdLoadString(IFX_SDFINISH_MAINT_MSG1);
     
190.     endif;
     
191. 
     
192.     bOpt1   = FALSE;
     
193.     bOpt2   = FALSE;   
     
194. 
     
195.     if ( BATCH_INSTALL ) then
     
196.         SdFinishReboot ( szTitle , szMsg1 , SYS_BOOTMACHINE , szMsg2 , 0 );
     
197.     else   
     
198.            SdFinish ( szTitle , szMsg1 , szMsg2 , szOpt1 , szOpt2 , bOpt1 , bOpt2 );
     
199.     endif;  
     
200.        LaunchAppAndWait(setupDIR,"",NOWAIT);  
     
201. end;
     
202. 
     
203. function WriteInstallGuid()
     
204. string svSubStr,productCode;
     
205. number nRootKey,nType;
     
206. begin
     
207.      //写注册表
     
208.     if(OS32=TRUE) then
     
209.         StrSub(svSubStr,UNINSTALL_STRING,57,38); //获取guid  
     
210.     else
     
211.         StrSub(svSubStr,UNINSTALL_STRING,63,38);
     
212.     endif;
     
213.     productCode=svSubStr;
     
214.     nRootKey=HKEY_LOCAL_MACHINE;
     
215.     RegDBSetDefaultRoot(nRootKey);
     
216.     nType=REGDB_STRING;
     
217.     RegDBSetKeyValueEx(szKey,"Dog",nType,productCode,-1);   
     
218. end;

复制代码