分类： Install Setup 2013-02-02 11:27 536人阅读 评论(0) 收藏 举报
nno setup脚本能够支持许多的类，这些类使得安装程序的功能得到很大的加强，通过对这些类的使用，将会创建出许多让人惊奇的安装程序，下面开始类的学习。
创建自定义向导页
自定义向导页需要在InitializeWizard事件函数中创建，通过使用CreateCustomPage函数创建一个空的页面，或者使用CreateInput...Page和CreateOutput...Page等函数创建预建的页面，例如CreateInputDirPage、CreateInputFilePage、CreateOutputProgressPage等函数。当创建好了页面之后，就可以在页面上添加控件了，可以手动创建控件，也可以使用预建页面的特殊函数。大部分的Create...Page函数的第一个参数通常都是Page ID，该参数指定了新创建的页面被放在哪个已存在的页面后面。有几种方法获取一个已经存在页面的Page ID，例如用户创建的页面有一个属性是ID，该属性为一个只读的整型，其值即为页面的ID，内建的向导页有预定的ID，可用的名称如下表：
wpWelcome
wpLicense
wpPassword
wpInfoBefore
wpUserInfo
wpSelectDir
wpSelectComponents
wpSelectProgramGroup
wpSelectTasks
wpReady
wpPreparing
wpInstalling
wpInfoAfter
wpFinished
当自定义页面创建完成后，安装程序将会显示，并会像对待预建页面一样处理他们，例如调用所有页面都关联的NextButtonClick和ShouldSkipPage事件函数。
CreateCustomPage函数原型如下：
function CreateCustomPage(const AfterID: Integer; const ACaption, ADescription: String): TwizardPage
第一个参数和前面的Page ID是一样的，可以使用上述表中任何一个作为参数，第二个参数Acaption指定页面的标题，该标题将会显示在页面上方，第三个参数则是对该页面的描述。函数的返回值是一个TwizardPage类，根据Inno Setup的帮助文档，该类的原型如下：
TWizardPage = class(TComponent)
property ID: Integer; read;
property Caption: String; read write;
property Description: String; read write;
property Surface: TNewNotebookPage; read write;
property SurfaceHeight: Integer; read write;
property SurfaceWidth: Integer; read write;
property OnActivate: TWizardPageNotifyEvent; read write;
property OnBackButtonClick: TWizardPageButtonEvent; read write;
property OnCancelButtonClick: TWizardPageCancelEvent; read write;
property OnNextButtonClick: TWizardPageButtonEvent; read write;
property OnShouldSkipPage: TWizardPageShouldSkipEvent; read write;
end;
TWizardPageNotifyEvent = procedure(Sender: TWizardPage);
TWizardPageButtonEvent = function(Sender: TWizardPage): Boolean;
TWizardPageCancelEvent = procedure(Sender: TWizardPage; var ACancel, AConfirm: Boolean);
TWizardPageShouldSkipEvent = function(Sender: TWizardPage): Boolean;
下面的程序将会创建一个最简单的自定义页面，并显示在欢迎页面后面：
[setup]
AppName=Test
AppVerName=TEST
DefaultDirName="E:\TEST"
AppVersion=1.0
[files]
Source: "F:\desktop\test\ipmsg.exe";Flags:dontcopy
[code]
procedure InitializeWizard();
begin
CreateCustomPage(wpWelcome, '标题：自定义页面', '描述：这是我的自定义页面');
end;
运行后，当从Welcome页面点击Next按钮后，将会出现下面的页面：
另外，我们也可是测试一下CreateCustomPage的返回值TwizardPage类的属性。例如下面这个例子将测试一下ID属性和NextButtonClick属性：
[code]
var
myPage:TwizardPage;
myPageID:Integer;
function NextButtonClick(CurPageID:Integer): Boolean;
begin
if CurPageID=myPageID then
begin
if MsgBox('确定要离开本页面吗？', mbConfirmation, MB_YESNO or MB_DEFBUTTON2) = IDYES then result:=true;
end
else
result:=true;
end;
procedure InitializeWizard();
begin
myPage:=CreateCustomPage(wpWelcome, '标题：自定义页面', '描述：这是我的自定义页面');
myPageID:=myPage.ID;
end;
运行该程序，当到达自定义页面并单击Next的后，将会出现如下的确认对话框：
选择“是”将到下一页，“否”将留在本页。
虽然上面的页面没有任何空间，但是，在成功创建好页面之后，往上面添加各种控件也不是将会变得简单，这就像是把地基打好了之后，盖房子就方便多了。