Inno Setup执行一些脚本后跳过自定义页面

时间:2014-10-30 15:01:07

标签: inno-setup

所以我目前正在尝试修改设置脚本, 我想要做的是在安装i进入自定义页面后,这个自定义页面执行2个scritps(一个用于创建数据库,另一个用于创建表)。 在执行此操作时,我想显示自定义标签和连续进度条。 执行完成后,我想直接进入完成页面。 我想删除下一个按钮。 这可能吗?

目前我的自定义页面带有一个连续的进度条,在install.i之后会出现此页面,然后在完成进度条部分后添加标签。

这是我的代码:

[CODE]
   var
   Page: TWizardPage;
   ProgressBar3: TNewProgressBar;

   procedure CreateTheWizardPages;  
   begin
       Page := CreateCustomPage(wpInstalling, 'Base de dados', 'A verificar a base de dados');
       ProgressBar3 := TNewProgressBar.Create(Page);
       ProgressBar3.Left := 5;
       ProgressBar3.Width := Page.SurfaceWidth - 5;
       ProgressBar3.Parent := Page.Surface;
       ProgressBar3.Style := npbstMarquee;
   end;

   procedure InitializeWizard();
   begin
       CreateTheWizardPages;
   end;

 //check the current page,if page equals to wpSelectCompnets, then we add the method on choose to the combobox fo types of installation
procedure CurPageChanged(CurPageID: Integer);
begin
    //msgbox(IntToStr( CurPageID),mbInformation, MB_OK);
    if CurPageID = wpSelectComponents then
    begin
        comboboxTypesInstalacao:=WizardForm.TypesCombo;
        WizardForm.TypesCombo.OnChange:=@ComboBoxChange;
    end
    else if  CurPageID = Page.ID then 
    begin
        try
           CreateDBAndTables('idontimedb.des');
        finally
        //close this custom wizard page and go to finish page
        end;
    end;
end;                                                    

提前致谢。

0 个答案:

没有答案