注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

信息 灵感 创新

I? =Information,Inspiration,Innovation

 
 
 

日志

 
 
关于我

we are 5. Mathematics, Computation, Programming, Engineering, and Making fun of life.

网易考拉推荐

Inno Setup入门(十三)——Pascal脚本(2)  

2011-02-18 14:16:22|  分类: Inno Setup |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

事件函数(2)

function CheckPassword(Password: String): Boolean;

如果安装程序在Pascal 脚本中发现该函数,它自动显示密码页并调用CheckPassword 检查密码。返回True 表示接受密码,返回False 拒绝。测试代码如下:

function CheckPassword(Password: String): Boolean;

begin

       if Password='castor' then

              result:=true;

end;

       在安装过程中将会出现询问安装密码的页面,如果输入错误将会出现下面的对话框:

Inno Setup入门(十三)——Pascal脚本(2) - Castor - 趁年轻,多折腾~~

为了避免在 [Code] 段内部贮存真实的密码,最好使用其他的信息进行比较,例如使用GetMD5OfString(Password)计算实际密码的MD5值保护实际密码。

function NeedRestart(): Boolean;

       如果返回True,安装程序在安装结束时提示用户重启系统,False则不提示。测试代码如下:

function NeedRestart(): Boolean;

begin

       result:=True;

end;

在安装完成之后的finish页面,将会出现如下的选项:

Inno Setup入门(十三)——Pascal脚本(2) - Castor - 趁年轻,多折腾~~

function UpdateReadyMemo(Space, NewLine, MemoUserInfoInfo, MemoDirInfo, MemoTypeInfo, MemoComponentsInfo, MemoGroupInfo, MemoTasksInfo: String): String;

       如果脚本中存在该函数,则在Ready to Install页面变为活动页的时候自动调用该函数,该函数返回一段文本,该文本显示于Ready to Install页面中的设置备注中,并且该文本将用NewLine参数分割为一个单独的多行字符串,参数Space指代空格,测试是六个,其它参数将包含安装程序用于设置段的字符 (可能是空的)。例如MemoDirInfo 参数包含选择目录段的字符串。测试代码如下:

function UpdateReadyMemo(Space, NewLine, MemoUserInfoInfo, MemoDirInfo, MemoTypeInfo, MemoComponentsInfo, MemoComponentsInfo, MemoTasksInfo: String): String;

var

  res: String;

begin

       res:='UpdateReadyMemo Function is here'+NewLine+'This is the Second Line';

       res:=res+Space+'And with Six Spaces';

       res:=res+NewLine+'MemoUserInfoInfo'+MemoUserInfoInfo;

       res:=res+NewLine+'MemoDirInfo'+MemoDirInfo;

       res:=res+NewLine+'MemoTypeInfo'+MemoTypeInfo; 

       res:=res+NewLine+'MemoComponentsInfo'+MemoComponentsInfo;

       res:=res+NewLine+'MemoComponentsInfo'+MemoComponentsInfo;

       res:=res+NewLine+'MemoTasksInfo'+MemoTasksInfo;

       Result:=res;

end;

运行后在安装前会出现确认页面:

Inno Setup入门(十三)——Pascal脚本(2) - Castor - 趁年轻,多折腾~~

 

标记黄色文字下面是各个参数的内容。

procedure RegisterPreviousData(PreviousDataKey: Integer);

本过程实现在自定义向导页中贮存用户输入的设置,在脚本中放入本函数,并调用SetPreviousData(PreviousDataKey, ...) 替换它,每次设置一个。

function CheckSerial(Serial: String): Boolean;

该函数将在用户信息向导页中自动出现一个序列号对象 (前提是[Setup] 段中使用UserInfoPage=yes)。返回True 表示接受序列号,返回False 拒绝。注意:当使用序列号时,该软件并没有被加密,而且Inno Setup 源代码是免费获取的,有经验的人从安装程序中删除序列号保护并不是很困难的事。本函数只是方便用户在你的应用程序中仔细检查输入的序列号 (贮存在{userinfoserial} 常量)。测试代码如下:

function CheckSerial(Serial: String): Boolean;

begin

       if Serial='ABCDEF-1234567890' then

              Result:=True;

end;

       在安装过程中将会出现一个页面,如下:

Inno Setup入门(十三)——Pascal脚本(2) - Castor - 趁年轻,多折腾~~

    如果Serial Number不正确,Next按钮将会无效,只有正确的序列号才能使得Next按钮有效,再次说明:不要指望使用这种方法保护你的软件。

function GetCustomSetupExitCode: Integer;

返回一个非零值,命令安装程序返回一个自定义退出代码,本函数只在安装程序运行完成并且退出代码已是零时才调用。常见的退出代码如下:

代码

说明

0

安装程序成功完成

1

安装程序初始化失败

2

用户在实际安装前点击取消,或者在开始的“这将安装……”时选择否

3

当准备到下一个安装阶段的时候发生致命错误,只有在比较极端的情况下发生这种错误,例如内存耗尽。

4

实际安装过程中发生致命错误

5

用户在实际安装过程中点击取消或者在“终止-重试-忽略”对话框中点击了终止

6

安装程序被调试器强制终止

7

准备安装阶段发现安装无法进行

8

准备安装阶段发现安装无法进行,并且系统需要重启来解决问题

例如在用Inno Setup调试编译后的安装文件时,按下Ctrl+F2后,下面的调试输出将会提示如下:

Inno Setup入门(十三)——Pascal脚本(2) - Castor - 趁年轻,多折腾~~

退出代码为6,可见安装程序被调试器强制终止。

function PrepareToInstall(var NeedsRestart: Boolean): String;

       在与安装阶段返回一个非空字符串命令安装程序停止,该字符串将会作为错误消息,设置NeedsRestartTrue将要求用户重启系统,该函数只在安装程序发现不能继续下去的时候才被调用。

 

  评论这张
 
阅读(7804)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2016