一个installsheild脚本安装的代码

admin

1. //===========================================================================
   
2. //
   
3. //  File Name:    Setup.rul
   
4. //
   
5. //  Description:  Blank setup main script file
   
6. //
   
7. //  Comments:     Blank setup is an empty setup project. If you want to
   
8. //      create a new project via. step-by step instructions use the
   
9. //      Project Assistant.
   
10. //
    
11. //===========================================================================
    
12. // Included header files ----------------------------------------------------
    
13. #include "ifx.h"
    
14. // Note: In order to have your InstallScript function executed as a custom
    
15. // action by the Windows Installer, it must be prototyped as an
    
16. // entry-point function.
    
17. // The keyword export identifies MyFunction() as an entry-point function.
    
18. // The argument it accepts must be a handle to the Installer database.
    
19.    
    
20. /* export prototype MyFunction(HWND); */
    
21. #define szKey "SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall\\Infomedia_Dog\"
    
22. STRING oldGuid;
    
23. BOOL OS64,OS32;
    
24. //获取安装包位置
    
25. STRING SETUPEXEDIR[MAX_PATH + 1];
    
26. string setupDIR;
    
27. number  nBuffer;
    
28. export prototype UninstallOldVersion(); //卸载旧版本
    
29. export prototype WriteInstallGuid();//将本安装包的GUID写入注册表
    
30. //prototype YiJiaoReg(STRING); //声明函数
    
31. //---------------------------------------------------------------------------
    
32. // OnEnd
    
33. //
    
34. // The OnEnd event is called at the end of the setup. This event is not
    
35. // called if the setup is aborted.
    
36. //---------------------------------------------------------------------------
    
37. function OnEnd()   
    
38. STRING szFeatureName;
    
39. STRING serviceTarget;
    
40. STRING szDocFile;
    
41. begin     
    
42. 
    
43. szFeatureName="Client";
    
44. serviceTarget=TARGETDIR^"AutoUpdater.exe";
    
45. if(FindFile(TARGETDIR, "AutoUpdater.exe", szDocFile)=0) then
    
46. if (LaunchApp (serviceTarget, "") < 0) then
    
47. MessageBox ("Unable to launch "+serviceTarget+".", SEVERE);
    
48. endif;
    
49. endif;
    
50. end;
    
51. //---------------------------------------------------------------------------
    
52. // OnFirstUIAfter
    
53. //
    
54. // The OnFirstUIAfter event called by the framework after the file transfer
    
55. // of the setup when the setup is running in first install mode. By default
    
56. // this event displays UI that informs the end user that the setup has been
    
57. // completed successfully.
    
58. //---------------------------------------------------------------------------
    
59. function OnFirstUIAfter()
    
60.     STRING szTitle, szMsg1, szMsg2, szOpt1, szOpt2;
    
61.     NUMBER bOpt1, bOpt2;  
    
62.     STRING szfilename,szFolder ,szmsg1,szmsg2;
    
63.     NUMBER nresult;
    
64. begin
    
65. 
    
66. szfilename = UNINSTALL_STRING +" /UNINSTALL";
    
67. nresult = StrFind(szfilename,".exe");
    
68. if nresult >=0 then
    
69. StrSub(szmsg1,szfilename,0,nresult + 4);
    
70. //YiJiaoReg(szmsg1);//写注册表
    
71. WriteInstallGuid();//写注册表
    
72. StrSub(szmsg2,szfilename,nresult + 4,200);
    
73. LongPathToQuote(szmsg1, FALSE );
    
74. LongPathToQuote(szmsg2, FALSE );
    
75. szfilename = """ + szmsg1 + """ +szmsg2;
    
76. endif;
    
77. AddFolderIcon(FOLDER_PROGRAMS^"中国艺交所会员客户端","Uninstall",szfilename,WINDIR,"",0,"",REPLACE);
    
78.                   
    
79. Disable(STATUSEX);
    
80. bOpt1   = FALSE;
    
81.     bOpt2   = FALSE;
    
82.    
    
83.     if ( BATCH_INSTALL ) then
    
84.      SdFinishReboot ( szTitle , szMsg1 , SYS_BOOTMACHINE , szMsg2 , 0 );
    
85.     else
    
86.      SdFinish ( szTitle , szMsg1 , szMsg2 , szOpt1 , szOpt2 , bOpt1 , bOpt2 );
    
87. endif;
    
88. end;
    
89. //---------------------------------------------------------------------------
    
90. // OnMaintUIAfter
    
91. //
    
92. // The OnMaintUIAfter event called by the framework after the file transfer
    
93. // of the setup when the setup is running in maintenance mode. By default
    
94. // this event displays UI that informs the end user that the maintenance setup
    
95. // has been completed successfully.
    
96. //---------------------------------------------------------------------------
    
97. function OnMaintUIAfter()
    
98.     STRING szTitle, szMsg1, szMsg2, szOpt1, szOpt2;
    
99.     NUMBER bOpt1, bOpt2;  
    
100.     STRING szItemName;
     
101.     STRING szProgramFolder;
     
102. begin
     
103. 
     
104. 
     
105. // 删除开始所有程序中的AliProbe文件夹
     
106.   DeleteProgramFolder("中国艺交所会员客户端");
     
107.   
     
108.   // 删除桌面上的快捷方式
     
109.   szItemName = "中国艺交所会员客户端";
     
110.   szProgramFolder = FOLDER_DESKTOP;
     
111.   DeleteFolderIcon(szProgramFolder, szItemName);
     
112.   
     
113.   // 删除安装目录文件夹
     
114.   DeleteProgramFolder(TARGETDIR);
     
115. Disable(STATUSEX);
     
116.    
     
117.     if( REMOVEALLMODE ) then
     
118.         szTitle = SdLoadString(IFX_SDFINISH_REMOVE_TITLE);
     
119.         szMsg1 = SdLoadString(IFX_SDFINISH_REMOVE_MSG1);
     
120.     else
     
121.         szTitle = SdLoadString(IFX_SDFINISH_MAINT_TITLE);   
     
122.         szMsg1  = SdLoadString(IFX_SDFINISH_MAINT_MSG1);
     
123.     endif;
     
124. bOpt1   = FALSE;
     
125.     bOpt2   = FALSE;   
     
126.     if ( BATCH_INSTALL ) then
     
127.      SdFinishReboot ( szTitle , szMsg1 , SYS_BOOTMACHINE , szMsg2 , 0 );
     
128.     else   
     
129.         SdFinish ( szTitle , szMsg1 , szMsg2 , szOpt1 , szOpt2 , bOpt1 , bOpt2 );
     
130.     endif;
     
131. end;
     
132. // SdWelcome ----------------------------------------------------------------
     
133. function  SdWelcome(szTitle, szMsg)
     
134.     string  szDlg, szTemp;
     
135.     number  nId, nMessage, nTemp, nSdDialog;
     
136.     HWND    hwndDlg;
     
137.     BOOL    bDone;
     
138. begin
     
139.     szDlg     = SD_DLG_WELCOME;
     
140.     nSdDialog = SD_NDLG_WELCOME;
     
141.    
     
142.    
     
143.      szTitle="中国艺交所会员客户端安装向导";  
     
144.      szMsg="中国艺交所会员客户端安装程序正在准备安装向导，它将引导您完成剩余的过程，请稍后。";
     
145.     // record data produced by this dialog
     
146.     if(MODE=SILENTMODE) then
     
147.         SdMakeName( szAppKey, szDlg, szTitle, nSdWelcome );
     
148.         SilentReadData( szAppKey, "Result", DATA_NUMBER, szTemp, nId );
     
149.         return nId;
     
150.     endif;
     
151.     // ensure general initialization is complete
     
152.     if(!bSdInit) then
     
153.         SdInit();
     
154.     endif;
     
155.     if(EzDefineDialog( szDlg, "", "", SD_NDLG_WELCOME ) = DLG_ERR) then
     
156.         return -1;
     
157.     endif;
     
158.     Disable( BACKBUTTON );
     
159.     // Loop in dialog until the user selects a standard button
     
160.     bDone = FALSE;
     
161.     while (!bDone)
     
162.         nId = WaitOnDialog( szDlg );
     
163.         switch(nId)
     
164.         case DLG_INIT:
     
165.             // Put the corresponding Info in the List Field
     
166.             if( szMsg != "" ) then
     
167.                 SdSetStatic(szDlg, SD_STA_MSG, szMsg);
     
168.             endif;
     
169.             hwndDlg = CmdGetHwndDlg( szDlg );
     
170.             SdGeneralInit( szDlg, hwndDlg, STYLE_NORMAL, szSdProduct );
     
171.             SdSetDlgTitle(szDlg, hwndDlg, szTitle);
     
172.         case NEXT:
     
173.             nId    = NEXT;
     
174.             bDone  = TRUE;
     
175.         case BACK:
     
176.             nId    = BACK;
     
177.             bDone  = TRUE;
     
178.         case DLG_ERR:
     
179.             SdError( -1, "SdWelcome" );
     
180.             nId    = -1;
     
181.             bDone  = TRUE;
     
182.         case DLG_CLOSE:
     
183.             SdCloseDlg( hwndDlg, nId, bDone );
     
184.         default:
     
185.             // check standard handling
     
186.             if(SdIsStdButton( nId ) && SdDoStdButton( nId )) then
     
187.                 bDone = TRUE;
     
188.             endif;
     
189.         endswitch;
     
190.     endwhile;
     
191.     // Cleanup Dialog
     
192.     EndDialog( szDlg );
     
193.     ReleaseDialog( szDlg );
     
194.     SdUnInit();
     
195.     Enable( BACKBUTTON );
     
196.     // record data produced by this dialog
     
197.     if(MODE=RECORDMODE) then
     
198.         SdMakeName( szAppKey, szDlg, szTitle, nSdWelcome );
     
199.         SilentWriteData( szAppKey, "Result", DATA_NUMBER, "", nId );
     
200.     endif;
     
201.     return nId;
     
202. end;
     
203. //---------------------------------------------------------------------------
     
204. // OnFirstUIBefore
     
205. //
     
206. // The OnFirstUIBefore event is called by the framework when the setup is
     
207. // running in first install mode. By default this event displays UI allowing
     
208. // the end user to specify installation parameters.
     
209. //---------------------------------------------------------------------------
     
210. function OnFirstUIBefore()
     
211.     NUMBER nResult, nSetupType, nvSize, nUser;
     
212.     STRING szTitle, szMsg, szQuestion, svName, svCompany, szFile;
     
213.     STRING szLicenseFile;
     
214. BOOL bCustom, bIgnore1, bIgnore2;   
     
215. NUMBER nvType;
     
216. STRING  szPath;   
     
217. STRING ProductCode,VERCHEKER,szCMDLineTest;
     
218. begin
     
219.     // TO DO: if you want to enable background, window title, and caption bar title                                                                  
     
220.     // SetTitle( @PRODUCT_NAME, 24, WHITE );                                       
     
221.     // SetTitle( @PRODUCT_NAME, 0, BACKGROUNDCAPTION );                    
     
222.     // Enable( FULLWINDOWMODE );         
     
223.     // Enable( BACKGROUND );         
     
224.     // SetColor(BACKGROUND,RGB (0, 128, 128));      
     
225.     // Added in InstallShield 15 - Show an appropriate error message if
     
226.     // -removeonly is specified and the product is not installed.
     
227.    
     
228.       
     
229.      UninstallOldVersion();
     
230.     if( REMOVEONLY ) then
     
231.         Disable( DIALOGCACHE );
     
232.   szMsg = SdLoadString( IDS_IFX_ERROR_PRODUCT_NOT_INSTALLED_UNINST );
     
233.      SdSubstituteProductInfo( szMsg );
     
234.   MessageBox( szMsg, SEVERE );
     
235.   abort;
     
236.     endif;
     
237.    
     
238. nSetupType = TYPICAL;
     
239.      
     
240.      /*RegDBSetDefaultRoot(HKEY_LOCAL_MACHINE);  
     
241.     nvType = REGDB_NUMBER;
     
242.     if(RegDBKeyExist("SOFTWARE\\YiJiao")>0) then
     
243.       RegDBGetKeyValueEx("SOFTWARE\\YiJiao\","uninstall",nvType,szPath,nvSize);
     
244.       if(Is (FILE_EXISTS, szPath)>0) then
     
245.       MessageBox ("检测到本机安装有其他版本，请按操作移除其它版本！ ", INFORMATION);
     
246.       RegDBDeleteKey("SOFTWARE\\YiJiao");
     
247.       LaunchAppAndWait(szPath,"",WAIT);
     
248.       WaitForApplication(LAAW_PROCESS_INFORMATION.hProcess, LAAW_PROCESS_INFORMATION.dwProcessId, INFINITE, LAAW_OPTION_WAIT_INCL_CHILD | LAAW_OPTION_WAIT);
     
249.       endif;
     
250.       RegDBDeleteKey("SOFTWARE\\YiJiao");
     
251.      endif;  */
     
252.      
     
253. Dlg_SdWelcome:
     
254.     szTitle = "";
     
255.     szMsg   = "";
     
256.     nResult = SdWelcome(szTitle, szMsg);
     
257.     if (nResult = BACK) goto Dlg_SdWelcome;
     
258. 
     
259. szTitle   = "";
     
260. svName    = "";
     
261.     svCompany = "";
     
262.    
     
263. Dlg_SdAskDestPath:     
     
264.     nResult = SdAskDestPath(szTitle, szMsg, INSTALLDIR, 0);
     
265.     if (nResult = BACK) goto Dlg_SdWelcome;
     
266. Dlg_SdFeatureTree:
     
267.     szTitle    = "";
     
268.     szMsg      = "";
     
269.     if (nSetupType = CUSTOM) then
     
270.   nResult = SdFeatureTree(szTitle, szMsg, INSTALLDIR, "", 2);
     
271.   if (nResult = BACK) goto Dlg_SdAskDestPath;  
     
272.     endif;
     
273. Dlg_SQL:
     
274.     nResult = OnSQLLogin( nResult );
     
275.     if( nResult = BACK ) then
     
276.      if (!bCustom) then
     
277.       goto Dlg_SdAskDestPath;   
     
278.      else
     
279.       goto Dlg_SdFeatureTree;
     
280.      endif;
     
281.     endif;
     
282. Dlg_SdStartCopy:
     
283.     szTitle = "";
     
284.     szMsg   = "";
     
285.     nResult = SdStartCopy2( szTitle, szMsg );   
     
286. 
     
287.     if (nResult = BACK) then
     
288.        goto Dlg_SQL;;
     
289.     endif;
     
290.     // Added in IS 2009 - Set appropriate StatusEx static text.
     
291.     SetStatusExStaticText( SdLoadString( IDS_IFX_STATUSEX_STATICTEXT_FIRSTUI ) );
     
292.     // setup default status
     
293.     Enable(STATUSEX);
     
294.       
     
295.      //判断注册表中的值
     
296.     /*RegDBSetDefaultRoot(HKEY_LOCAL_MACHINE);  
     
297.     nvType = REGDB_NUMBER;
     
298.     if(RegDBKeyExist("SOFTWARE\\YiJiao")>0) then
     
299.            RegDBGetKeyValueEx("SOFTWARE\\YiJiao\","ProductCode",nvType,szPath,nvSize);
     
300.            ProductCode="\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall\" +szPath;
     
301.      if(RegDBKeyExist(ProductCode)>0) then
     
302.        //RegDBGetKeyValueEx("\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall\\{F7BCAE73-5488-494D-B23F-C792D8C4A97D}","UninstallString",nvType,szPath,nvSize);
     
303.         RegDBDeleteKey(ProductCode);  
     
304.         endif;  
     
305.      // 删除开始所有程序中的AliProbe文件夹
     
306.     DeleteProgramFolder("中国艺交所会员客户端");
     
307.   
     
308.     // 删除桌面上的快捷方式
     
309.     DeleteFolderIcon(FOLDER_DESKTOP, "中国艺交所会员客户端");
     
310.      
     
311.      
     
312.     RegDBGetKeyValueEx("SOFTWARE\\YiJiao","install",nvType,szPath,nvSize);
     
313.    
     
314.     // 删除安装目录文件夹
     
315.     DeleteProgramFolder(szPath);   
     
316.     RegDBDeleteKey("SOFTWARE\\YiJiao");
     
317.     endif;  */   
     
318.    
     
319.     //YiJiaoReg();  
     
320.     /*if(RegDBKeyExist("SOFTWARE\\YiJiao")>0) then
     
321.       
     
322.       RegDBGetKeyValueEx("SOFTWARE\\YiJiao\","ProductCode",nvType,szPath,nvSize);
     
323.        ProductCode="\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall\" +szPath;
     
324.       
     
325. 
     
326.               if (RegDBKeyExist(ProductCode) = 1)then  // has the key
     
327.              RegDBGetKeyValueEx(ProductCode,"UninstallString",nvType,szPath,nvSize);
     
328.                  VERCHEKER = SUPPORTDIR ^ "setup.iss";
     
329.                  XCopyFile ( VERCHEKER, "C://Program Files//InstallShield Installation Information//"+"ProductCode", COMP_NORMAL );
     
330.                  szCMDLineTest = "/s /f1/"+"C://Program Files//InstallShield Installation Information//"+"ProductCode"+"//setup.iss/";
     
331.                  LaunchAppAndWait( szPath, szCMDLineTest, LAAW_OPTION_WAIT_INCL_CHILD | LAAW_OPTION_WAIT);
     
332.                 WaitForApplication(LAAW_PROCESS_INFORMATION.hProcess, LAAW_PROCESS_INFORMATION.dwProcessId, INFINITE, LAAW_OPTION_WAIT_INCL_CHILD | LAAW_OPTION_WAIT);
     
333.             endif;
     
334.                // 删除开始所有程序中的AliProbe文件夹
     
335.    
     
336.     RegDBDeleteKey("SOFTWARE\\YiJiao");
     
337.         endif;  */
     
338.       
     
339.     return 0;
     
340. end;
     
341. //---------------------------------------------------------------------------
     
342. // OnBegin
     
343. //
     
344. // The OnBegin event is called directly by the framework after the setup
     
345. // initializes.
     
346. //---------------------------------------------------------------------------
     
347. function OnBegin()
     
348. string svCurrentDir;   
     
349. //NUMBER   nvType,nvSize;
     
350. STRING   szPath;
     
351. string szNumName,szNumValue;  
     
352. number nType,nSize;
     
353. begin
     
354. // TO DO: you may change default non-UI setting, for example
     
355. //
     
356. // You may also perform your custom initialization steps, check requirements, etc.
     
357. //GetCurrentDir(svCurrentDir);
     
358. //svCurrentDir =  svCurrentDir+"\\dotNetFx40_Full_x86_x64.exe";//这里的dotnetfx20.exe可到官网上下载
     
359.   //判断操作系统
     
360.      if (SYSINFO.bIsWow64) then
     
361.           OS64=TRUE;
     
362.      else
     
363.           OS32=TRUE;
     
364.      endif;
     
365.     //旧的安装GUID
     
366.     RegDBSetDefaultRoot(HKEY_LOCAL_MACHINE);
     
367.     if(RegDBKeyExist(szKey)>0)then
     
368.         szNumName="Dog";
     
369.         nType=REGDB_STRING;
     
370.         RegDBGetKeyValueEx(szKey,szNumName,nType,szNumValue,nSize);
     
371.         oldGuid= szNumValue;
     
372.     endif;   
     
373. 
     
374.    
     
375.      
     
376. svCurrentDir =  SUPPORTDIR^"\\dotNetFx40_Full_x86_x64.exe";//这里的dotnetfx20.exe可到官网上下载
     
377. RegDBSetDefaultRoot(HKEY_LOCAL_MACHINE);  //设置默认的注册表键值根节点
     
378. // 判断是否存在.net
     
379. if (RegDBKeyExist ("SOFTWARE\\Microsoft\\NET Framework Setup\\NDP\\v4.0") <0 &&RegDBKeyExist ("SOFTWARE\\Microsoft\\NET Framework Setup\\NDP\\v4") < 0) then
     
380. //当上面判断了没有安装.net这个软件时，则启动光盘里
     
381. //dotnetfx.exe安装程序来安装。
     
382.      MessageBox ("检测到本机未安装.Net FrameWork 4.0，下一步将会先安装.Net FrameWork 4.0 ", INFORMATION);  
     
383.      if(LaunchAppAndWait (svCurrentDir ,"", LAAW_OPTION_WAIT)<0) then     
     
384.      MessageBox ("找不到安装程序或者安装出错，请自行下载.Net FrameWork 4.0，手动安装", INFORMATION);
     
385.      return 0;
     
386.      endif;        
     
387. endif;
     
388. end;
     
389. //
     
390. //
     
391. ///将安装路径写进注册表
     
392. /*function YiJiaoReg(Path)
     
393. number nRootKey,nType,nSize;
     
394. string szKey,szNumName,szNumValue,szClass;
     
395. begin     
     
396. //修改注册表
     
397. nRootKey = HKEY_LOCAL_MACHINE;
     
398. RegDBSetDefaultRoot (nRootKey); //置根为nRootKey
     
399. //注册子项
     
400. szKey="SOFTWARE\\YiJiao\";
     
401. if RegDBKeyExist(szKey) < 0 then
     
402.     //不存在“SOFTWARE//NNLLTEST”，创建这个项
     
403.     Disable(LOGGING);
     
404.     RegDBCreateKeyEx(szKey,"");  
     
405.     Enable(LOGGING);
     
406. endif;
     
407. //初始化每个键的公共值
     
408. nType=REGDB_STRING;
     
409. nSize=-1;
     
410. //注册安装路径
     
411. szNumName="install";
     
412. szNumValue=TARGETDIR;
     
413.     RegDBSetKeyValueEx(szKey,szNumName,nType,szNumValue,nSize);   
     
414.    
     
415. szNumName="uninstall";
     
416. //szNumValue=UNINSTALL_STRING +" /UNINSTALL";//
     
417. szNumValue=Path;
     
418.     RegDBSetKeyValueEx(szKey,szNumName,nType,szNumValue,nSize);
     
419.    
     
420.    
     
421. szNumName="ProductCode";
     
422. szNumValue="";//记录上个版本的产品号
     
423.     RegDBSetKeyValueEx(szKey,szNumName,nType,szNumValue,nSize);
     
424.    
     
425.     //设置为未注册版本
     
426.     szNumName="soft";
     
427. szNumValue="0";
     
428. if RegDBKeyExist(szKey) < 0 then
     
429.     //如果不存在这个项，就注册，如果存在，就跳过
     
430.     RegDBSetKeyValueEx(szKey,szNumName,nType,szNumValue,nSize);
     
431.     RegDBCreateKeyEx (szKey, szClass);
     
432. endif;
     
433. end;  */
     
434. 
     
435. ///卸载旧版本
     
436. function UninstallOldVersion()  
     
437. string szPath,UninstallString;
     
438. string szNumName,szNumValue;
     
439. number nType,nSize;
     
440. begin      
     
441. szPath=WINDIR+"Installer\"+oldGuid;
     
442. RegDBSetDefaultRoot(HKEY_LOCAL_MACHINE);
     
443. UninstallString="\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall\\InstallShield_"+oldGuid;
     
444. nType=REGDB_STRING;
     
445. szNumName="UninstallString";
     
446. RegDBGetKeyValueEx(UninstallString,szNumName,nType,szNumValue,nSize); //获取卸载脚本
     
447.     if(RegDBKeyExist(UninstallString)>0) then   
     
448.         //if(AskYesNo("Install the software detects an earlier version, in order to ensure the software is installed correctly uninstall that version!",NO)=YES) then   
     
449.                 SdShowMsg("正在卸载旧版本请稍等...",TRUE);
     
450.                 Delay(1);
     
451.                 LaunchAppAndWait(szNumValue," /S",LAAW_OPTION_WAIT_INCL_CHILD | LAAW_OPTION_WAIT);                 
     
452.                 //DeleteDir("C:\\Program Files (x86)\\InstallShield Installation Information\"+oldGuid,ALLCONTENTS);
     
453.                 //刷新注册表
     
454.                 LaunchAppAndWait ( "","cmd /c gpupdate /force /wait:0 ",LAAW_OPTION_WAIT_INCL_CHILD | LAAW_OPTION_WAIT|LAAW_OPTION_HIDDEN);   
     
455.                 SdShowMsg("", FALSE);
     
456.                    //SdShowMsg("Uninstall is complete",TRUE);
     
457.                 Delay(2);
     
458.                 SdShowMsg("", FALSE);
     
459.                 LaunchAppAndWait( WINSYSDIR^"cmd.exe", "/c rd /s/q ""+szPath+""", LAAW_OPTION_WAIT_INCL_CHILD | LAAW_OPTION_WAIT | LAAW_OPTION_HIDDEN);
     
460.         //else
     
461.             //abort;
     
462.         //endif;
     
463.     endif;   
     
464. end;
     
465. 
     
466. 
     
467. //写注册表
     
468. function WriteInstallGuid()
     
469. string svSubStr,productCode;
     
470. number nRootKey,nType;
     
471. begin
     
472.      
     
473.     if(OS32=TRUE) then
     
474.         StrSub(svSubStr,UNINSTALL_STRING,57,38); //获取guid  
     
475.     else
     
476.         StrSub(svSubStr,UNINSTALL_STRING,63,38);
     
477.     endif;
     
478.     productCode=svSubStr;
     
479.     nRootKey=HKEY_LOCAL_MACHINE;
     
480.     RegDBSetDefaultRoot(nRootKey);
     
481.     nType=REGDB_STRING;
     
482.     RegDBSetKeyValueEx(szKey,"Dog",nType,productCode,-1);   
     
483. end;
     
484. //---------------------------------------------------------------------------
     
485. // OnMaintUIBefore
     
486. //
     
487. // The OnMaintUIBefore event is called by the framework when the setup is
     
488. // running in maintenance mode. By default this event displays UI that
     
489. // allows the end user to add or remove features, repair currently
     
490. // installed features or uninstall the application.
     
491. //---------------------------------------------------------------------------
     
492. function OnMaintUIBefore()
     
493.     NUMBER nResult, nType,nBuffer;
     
494.     STRING szTitle, szMsg, svDir, svResult, szCaption;  
     
495.     string setupDIR;
     
496. begin
     
497.     Dlg_Start:
     
498.     if( !REMOVEONLY ) then
     
499.       /*if(AskYesNo("计算机上已经安装了该版本，是否卸载？",YES)=NO) then
     
500.          abort;
     
501.       else */
     
502.           ComponentRemoveAll();      
     
503.          SetStatusExStaticText( SdLoadString( IDS_IFX_STATUSEX_STATICTEXT_MAINTUI_REMOVEALL ) );   
     
504.       //endif;
     
505.     else
     
506.          ComponentRemoveAll();
     
507.         SetStatusExStaticText( SdLoadString( IDS_IFX_STATUSEX_STATICTEXT_MAINTUI_REMOVEALL ) );      
     
508.     endif;  
     
509.     // setup default status
     
510.     SetStatusWindow(0, "");
     
511.     Enable(STATUSEX);
     
512.     StatusUpdate(ON, 100);
     
513. end;

复制代码