Inno Setup入门（十三）——Pascal脚本（2）

事件函数（2）

function CheckPassword(Password: String): Boolean;

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

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

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

function NeedRestart(): Boolean;

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

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

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

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

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

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

procedure RegisterPreviousData(PreviousDataKey: Integer);

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

function CheckSerial(Serial: String): Boolean;

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

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

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

function GetCustomSetupExitCode: Integer;

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

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

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

function PrepareToInstall(var NeedsRestart: Boolean): String;