Installshield 卸载时需要确认密码才能卸载

admin

很早之前记得有朋友问到如何让自己的安装包在目标机上卸载时，进行密码确认，避免本机其他用户误卸载程序。
卸载需要密码确认，那自然是在安装时由用户设置卸载密码，代码如下：

1. function OnBegin()  
   
2.      string szQuestion, szDefault, svResult, svValue;
   
3. begin
   
4.      // TODO: Perform custom initialization steps, check requirements, etc.
   
5.      
   
6.      if (!MAINTENANCE) then
   
7.          // set variable value during first time install
   
8.          szQuestion = "Please enter your uninstall password";
   
9.          szDefault = "Default";
   
10.          AskText ( szQuestion , szDefault , svResult );   
    
11.    
    
12.          //set the variable using the TextSub object
    
13.          TextSub.Value("MyVar") = svResult;  
    
14.      else
    
15.          // retrieve value during maintenance setup
    
16.          svValue = TextSub("MyVar");
    
17.          
    
18.          szQuestion = "Please enter your uninstall password";
    
19.          szDefault = "";
    
20.          AskText ( szQuestion , szDefault , svResult );   
    
21.          
    
22.          if ( StrCompare(svResult,svValue) != 0 ) then
    
23.              MessageBox("Uninstall password is invalid, please contact with your adminstrator.", SEVERE);
    
24.              abort;        
    
25.          endif;
    
26.      endif;  
    
27. end;

复制代码