杉宫竹苑工作室

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 2032|回复: 0

卸载时进行密码确认

[复制链接]
发表于 2016-8-28 20:05:25 | 显示全部楼层 |阅读模式

正式会员享受无限制浏览网站功能和高速网盘下载,赶快加入本站吧!

您需要 登录 才可以下载或查看,没有账号?立即注册

x

如何让自己的安装包在目标机上卸载时,进行密码确认,避免本机其他用户误卸载程序。
卸载需要密码确认,那自然是在安装时由用户设置卸载密码,代码如下:

  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;
复制代码


回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|小黑屋|手机版|Archiver|SgzyStudio

GMT+8, 2024-6-17 09:09 , Processed in 0.242286 second(s), 19 queries .

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表