var
UsagePage: TInputOptionWizardPage;function CheckAutoCfgToolIsInstall(): Boolean;
begin
//选择安装
case UsagePage.SelectedValueIndex of
0: result:=true; //安装
1: result:=false; //暂时不安装
end;
end;function CheckAutoCfgToolIsUnInstall(): Boolean;
begin
//选择暂时不安装
case UsagePage.SelectedValueIndex of
0: result:=false; //安装
1: result:=true; //暂时不安装
end;
end;procedure initializewizard;
begin
//创建选择安装持续集成自动化配置工具界面
UsagePage := CreateInputOptionPage(wpWelcome,
'持续集成自动化配置工具 ', '请选择是否安装持续集成自动化配置工具',
'请选择是否安装持续集成自动化配置工具',
True, False);
UsagePage.Add( '安装');
UsagePage.Add( '暂时不安装 '); UsagePage.SelectedValueIndex := 0;
如何到自己的页面
end;
UsagePage: TInputOptionWizardPage;function CheckAutoCfgToolIsInstall(): Boolean;
begin
//选择安装
case UsagePage.SelectedValueIndex of
0: result:=true; //安装
1: result:=false; //暂时不安装
end;
end;function CheckAutoCfgToolIsUnInstall(): Boolean;
begin
//选择暂时不安装
case UsagePage.SelectedValueIndex of
0: result:=false; //安装
1: result:=true; //暂时不安装
end;
end;procedure initializewizard;
begin
//创建选择安装持续集成自动化配置工具界面
UsagePage := CreateInputOptionPage(wpWelcome,
'持续集成自动化配置工具 ', '请选择是否安装持续集成自动化配置工具',
'请选择是否安装持续集成自动化配置工具',
True, False);
UsagePage.Add( '安装');
UsagePage.Add( '暂时不安装 '); UsagePage.SelectedValueIndex := 0;
如何到自己的页面
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货