我正在使用LicenseFile=D:\authorized\Builds\Integration\License.rtf
显示许可证页面和过程InitializeWizard();
。
问题是在InitializeWizard();
过程之后显示许可证页面。有什么方法可以之前显示它?
procedure InitializeWizard;
begin
{ Create the pages }
UsagePage := CreateInputOptionPage(wpWelcome,
'App setup information', 'How would you like to install App?',
'Would you like to install App as a service?.',
True, False);
UsagePage.Add('Yes');
UsagePage.Add('No');
UsagePage.Values[0] := true;
end;
答案 0 :(得分:2)
这是一个误会。 InitializeWizard
函数不显示任何内容。它只是创建自定义页面,而不显示它们。
尝试在函数末尾添加一个MsgBox
调用。您会看到该消息显示在向导表单甚至弹出之前。
自定义页面的顺序由AfterID
函数的Create*Page
参数(第一个参数)确定。
如果您希望自定义页面显示在许可证页面之后,请使用wpLicense
而不是wpWelcome
。
UsagePage := CreateInputOptionPage(wpLicense, ...);