为何Inno Setup的PrepareToInstall阶段UI无法保持响应？

没错，Inno Setup在PrepareToInstall事件处理期间确实会主动禁用向导窗体，这是它的内置设计行为——目的是避免用户在安装准备的关键阶段操作控件，防止出现状态不一致的问题。

为什么两个阶段表现不同？ #

• AfterInstall阶段：这个过程是在文件复制完成后触发的，此时Inno Setup的主消息循环仍然在正常运转。你通过消息泵实现的异步逻辑，能让UI线程及时处理用户输入，所以向导窗体可以保持点击、拖拽的响应性。
• PrepareToInstall阶段：当这个事件触发时，Inno Setup会先调用EnableWindow(WizardForm.Handle, False)把整个向导窗体置为禁用状态，同时它的主消息循环会暂时被阻塞。哪怕你在自己的耗时任务里加入了消息泵，也绕不开窗体被禁用的事实，所以看起来整个界面就是冻结、无法操作的。

可行的解决方案 #

如果需要在安装前执行耗时任务，推荐这两种思路：

1. 改用异步方式启动外部程序
   不要在PrepareToInstall里直接同步执行耗时操作，而是用CreateProcess启动7zip等外部工具，并且不等待进程结束。然后可以通过Timer组件定时检查进程状态，完成后再继续安装流程。示例代码片段：

   var
     7ZipProcess: THandle;
   procedure InitializeWizard;
   begin
     // 启动7zip，不等待完成
     if not CreateProcess('', '7z x archive.7z -o"dest"', nil, nil, False, 0, nil, nil, StartupInfo, ProcessInfo) then
       MsgBox('7zip启动失败', mbError, MB_OK);
     7ZipProcess := ProcessInfo.hProcess;
     // 启用Timer定时检查进程状态
     WizardForm.Timer1.Enabled := True;
   end;
   
   procedure Timer1Tick(Sender: TObject);
   var
     ExitCode: DWORD;
   begin
     if GetExitCodeProcess(7ZipProcess, ExitCode) and (ExitCode <> STILL_ACTIVE) then
     begin
       WizardForm.Timer1.Enabled := False;
       CloseHandle(7ZipProcess);
       CloseHandle(ProcessInfo.hThread);
       // 进程完成，可执行后续安装准备逻辑
     end;
   end;
   

2. 把任务移到InitializeWizard阶段
   这个阶段Inno Setup不会禁用向导窗体，你可以在这里执行耗时任务（同样要配合消息泵或异步逻辑），完成后再允许用户点击下一步按钮。

内容的提问来源于stack exchange，提问作者Dan