如何使 Inno Setup 在执行长时间 Exec 时看起来不被冻结？

Question

长 Exec 正在安装 .NET 3.5，并且输出脚本基于以下脚本： http://www.blackhillsoftware .com/blog/2006/06/26/using-innosetup-with-the-dotnet-framework/

问题在于它使用了 ewWaitUntilTermulated ，因为我们需要捕获退出代码。 事实上，我们运行它 /passive /norestart 这样就减少了用户的工作量（也许我们不应该？），

我能想到的最简单的选择是在安装 .NET 时隐藏窗口并在完成后再次显示它，但我不知道该怎么做。

理想的解决方案是显示进度页面，但似乎不可能，因为我们需要立即返回，但在进程退出时仍会收到通知并捕获退出代码，否则我们会只是有一个永恒的进度条。

关于如何解决这个问题有什么想法吗？

编辑：最小化可能会更好，但也不知道如何做到这一点。 我们确实显示一条消息，通知用户该过程可能需要 10-20 分钟，但问题是主设置表单完全冻结，无法移动、最小化或对其执行任何操作。 另外，在速度较慢的计算机上运行 /passive .NET 安装程序实际上在一两分钟内不会显示任何进度。

Answer 1

使 Inno Setup“看起来不冻结”的一种方法是添加一个“假”进度指示器，例如选框，以显示正在发生的事情。 但这并不能解决“窗口不可拖动/可移动”的问题。

因此，另一种方法是在执行长时间运行的进程时真正解冻 Inno Setup GUI：
“长时间运行的进程”是通过 ShellExecuteEx() 执行的。
然后安装程序使用 while 循环和条件
WaitForSingleObject 和非常短的超时
执行AppProcessMessage。

AppProcessMessage 本身就是一个辅助函数。 它使用“通用”代码重新创建一个 Application.ProcessMessages 式的过程，使用 WinAPI 函数 PeekMessage()、TranslateMessage() 和 <代码>DispatchMessage()。
它的工作是充当 Inno Setup GUI 的消息泵。

这个技巧使窗口再次响应/可拖动，
而“长时间运行的进程”是在后台处理的。

这是执行循环的源代码：

if ShellExecuteEx(ExecInfo) then
begin
  while WaitForSingleObject(ExecInfo.hProcess, 100) = WAIT_TIMEOUT
  do begin
      AppProcessMessage;
      WizardForm.Refresh();
  end;
  CloseHandle(ExecInfo.hProcess);
end;

以下 unzip.iss 的 GIST 包含独立 用于执行 7zip 而不阻塞 Inno Setup GUI 的解压缩帮助程序，包括使用 AppProcessMessage 函数的零碎内容。

在这种情况下，“unzip”只是一个示例，您可以将执行的应用程序替换为任何内容，.NET 安装程序或任何其他长时间运行的任务。

Answer 2

尽管这可能很容易，但我不建议在 .Net 安装程序运行时隐藏安装程序。 我见过其他安装程序这样做，当它发生时，我认为安装已经完成，然后当我发现它实际上没有完成时我很困惑。 （当安装真正完成时，我也不能确定这一点。也许它又隐藏起来了。）

您可以在 Inno Setup 向导中显示自定义页面。 让这样的页面显示进度条并保持其准确可能是一个挑战，但至少您可以在向导页面上显示一条消息，说明您的安装程序正在等待 .Net 安装程序，然后再继续。 请参阅帮助文件的“使用自定义向导页面”部分。

Answer 3

您可以通过调用简单地隐藏安装程序向导表单，

WizardForm.Hide;
Exec(...);
WizardForm.Show;

尽管我同意这并不是很漂亮。

Answer 4

我们需要使用几个产品来安装 .NET，并采取了两种方法：

• 使用 Innosetup 安装 .NET 时，我们让用户知道安装将需要很长时间，并在完成时等待特定消息
• 我们启动 .NET 设置时没有任何标志来强制客户端通过它。 这样，如果他们更倾向于技术，他们就会知道为什么安装需要这么长时间。

老实说，我们在第二个选项上运气更好，特别是现在更多的系统管理员似乎在一定程度上锁定了桌面。

Answer 5

自从你问这个问题以来已经过去了 5 年，但无论如何，这是我的答案。

在调用 Exec() 之前，您可以设置 Inno Setup 将在主进度条上方显示的消息，如下所示：

WizardForm.StatusLabel.Caption := 'Installing .NET Framework 3.5. Please wait, this can take up to 1 hour...';