卸载时等代码执行完后再运行某个批处理文件

Share

1. [code]
   
2. {此处套用老虎版主卸载父键和子健的Code代码（用下面的代码不但可以删除该所指键下面所有的子键，同时也可以删除
   
3. 它上面所有的父键。而且该代码仅删除空白父键，也就是说如果父键中包含其它应用程序创建的内容，那么将不被删除)}
   
4. procedure TotalDeleteRegKey(rKey: integer; sKey: string; deletesubkeys: boolean);
   
5. var
   
6.   s: string;
   
7. begin
   
8.   s := sKey;
   
9.   if deletesubkeys then
   
10.     RegDeleteKeyIncludingSubkeys(rKey, sKey)
    
11.   else
    
12.     RegDeleteKeyIfEmpty(rKey, sKey);
    
13.   if Pos('\', s) <> 0 then
    
14.     begin
    
15.       while s[Length(s)] <> '\' do
    
16.         Delete(s, Length(s), 1);
    
17.       Delete(s, Length(s), 1);
    
18.       TotalDeleteRegKey(rKey, s, false);
    
19.     end;
    
20. end;
    
21. 
    
22. procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
    
23. var
    
24.   ResultCode: Integer;
    
25. begin
    
26.   case CurUninstallStep of
    
27.     usUninstall:
    
28.       begin // 开始卸载
    
29.        TotalDeleteRegKey(HKCU, ExpandConstant('Software\Unigraphics Solutions\NX\8.5'), true);
    
30.        Exec(ExpandConstant('{app}\NX 8.5\UGSLicensing\uninst000.bat'), '', ExpandConstant('{app}\NX 8.5\UGSLicensing'), SW_SHOWNORMAL, ewNoWait, ResultCode);
    
31.       end;
    
32.     usPostUninstall:
    
33.       begin      // 卸载完成
    
34.         // MsgBox('CurUninstallStepChanged:' #13#13 '卸载完成.', mbInformation, MB_OK);
    
35.         // ...这里插入代码来执行post-uninstall任务...
    
36.         ShellExec('open', 'http://blog.sina.com.cn/ttd2015', '', '', SW_SHOWNORMAL, ewNoWait, ResultCode); //卸载后打开网页
    
37.       end;
    
38.   end;
    
39. end;
    

复制代码

如果想要卸载完毕后再打开网址，修改为

1.     usDone:
   
2.       begin      // 卸载完成
   
3.         ShellExec('open', 'http://blog.sina.com.cn/ttd2015', '', '', SW_SHOWNORMAL, ewNoWait, ResultCode); //卸载后打开网页
   
4.       end;

复制代码