Inno setup 如何中止Inno设置

Inno setup 如何中止Inno设置,inno-setup,Inno Setup,我不知道为什么这不起作用-它快把我逼疯了 // ---------------------------------------------------------------------------- procedure InitializeWizard(); begin { Custom wizard pages } CreateTheWizardPages; if ListBox.items.count < 1 then begin MsgBox('No Fi

我不知道为什么这不起作用-它快把我逼疯了

// ----------------------------------------------------------------------------
procedure InitializeWizard();

begin
  { Custom wizard pages }
  CreateTheWizardPages;

  if ListBox.items.count < 1 then begin 
    MsgBox('No File Found:'#13#10#13#10 + 'For help visit: {#myWWW}', mbInformation, mb_Ok);
    Abort;
  end else

  { Custom controls }
  CreateAboutButtonAndURLLabel(WizardForm, WizardForm.CancelButton);

  { Custom beveled label }
  WizardForm.BeveledLabel.Caption := ' My Program ';

end;
//----------------------------------------------------------------------------
过程初始化Wizard();
开始
{自定义向导页面}
创建向导页面;
如果ListBox.items.count<1,则开始
MsgBox('未找到文件:'#13#10#13#10+'有关帮助的访问:{#myWWW}',mbInformation,mb#u Ok);
中止
结束其他
{自定义控件}
CreateAboutButtonAndURLLabel(WizardForm、WizardForm.CancelButton);
{自定义斜面标签}
WizardForm.BeveledLabel.Caption:=“我的程序”;
结束;

msgbox会显示-但安装程序似乎不会自动退出:-(

Gah)-因此,上面的代码工作正常,只需在关闭调试器的情况下运行即可

希望这对其他人有所帮助。abort语句用于退出安装程序,但仅适用于某些功能/过程


干杯,

不需要在没有调试器的情况下运行脚本。只有调试器(默认情况下,它可以在IDE设置中更改)通知您引发的异常(通过调用
中止
)使用错误消息框。Btw.,考虑将您的检查移动到<代码> RealAlsieStUP 事件中,该事件节省了用于创建向导窗体的时间和资源,并提供了更为干净的机制来中止安装。(因为您不需要使用可视控件来保存文件列表;您可以使用
TStringList
,在创建列表框
项后,您可以
将其分配给列表框
).Hi TLama-谢谢你的提示。我会的。很抱歉,我问这个问题时,后续操作太慢了。干杯,我没有遇到de bugger设置…不知道如何将您的贡献标记为答案…不用担心;请在您的答案中包含有关调试器异常消息框的信息;)关于“暂停异常”调试器选项(默认情况下处于启用状态);我强烈建议您保持该选项处于启用状态,因为它指示引发异常的行,这是一个非常有用的工具。您只需记住,安装程序引发的所有异常都将由调试器中的消息框指示(并且,
Abort
引发异常)。