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

ShellExec('open', 'your_command_here', '', '', SW_HIDE, ewWaitUntilTerminated, ErrorCode);

var
  ProcessInfo: TProcessInformation;
  StartupInfo: TStartupInfo;
  CommandLine: string;
  ExitCode: DWORD;
begin
  CommandLine := 'your_command_here';
  FillChar(StartupInfo, SizeOf(StartupInfo), 0);
  StartupInfo.cb := SizeOf(StartupInfo);
  StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
  StartupInfo.wShowWindow := SW_HIDE;
  if CreateProcess(nil, PChar(CommandLine), nil, nil, False, CREATE_NO_WINDOW, nil, nil, StartupInfo, ProcessInfo) then begin
    WaitForSingleObject(ProcessInfo.hProcess, INFINITE);
    GetExitCodeProcess(ProcessInfo.hProcess, ExitCode);
    CloseHandle(ProcessInfo.hProcess);
    CloseHandle(ProcessInfo.hThread);
  end;
end;