如何用Inno Setup实现自删除安装程序？现有方案因进程锁定失败

核心问题原因 #

你当前在AfterInstall阶段执行删除操作时，安装程序（setup.exe）仍处于运行状态，文件被系统锁定，因此无法直接删除。必须等安装程序完全退出后，再执行删除操作。

解决方案：借助批处理延迟删除 #

由于Inno Setup自身运行时无法删除自身，最可靠的方式是生成一个临时批处理文件，让它等待安装程序退出后再执行删除操作。

完整代码示例 #

1. 在[Code]段添加生成批处理的逻辑

function CmdLineParamExists(const Value: string): Boolean;
var
  I: Integer;  
begin
  Result := False;
  for I := 1 to ParamCount do
    if CompareText(ParamStr(I), Value) = 0 then
    begin
      Result := True;
      Exit;
    end;
end;

procedure CreateDeleteBatch;
var
  BatchPath: string;
  BatchFile: TStringList;
  SetupExePath: string;
begin
  if not CmdLineParamExists('/DELETESETUP') then Exit;

  SetupExePath := ExpandConstant('{srcexe}');
  BatchPath := ExpandConstant('{tmp}\DeleteSetup.bat');
  
  BatchFile := TStringList.Create;
  try
    // 循环等待安装程序进程退出
    BatchFile.Add(':WAIT');
    BatchFile.Add('tasklist /FI "IMAGENAME eq ' + ExtractFileName(SetupExePath) + '" | find /I "' + ExtractFileName(SetupExePath) + '" >nul');
    BatchFile.Add('if errorlevel 1 goto DELETE');
    BatchFile.Add('timeout /t 1 /nobreak >nul');
    BatchFile.Add('goto WAIT');
    // 删除安装程序文件
    BatchFile.Add(':DELETE');
    BatchFile.Add('del /F /Q "' + SetupExePath + '"');
    // 自动删除批处理自身
    BatchFile.Add('del /F /Q "' + BatchPath + '"');
    BatchFile.SaveToFile(BatchPath);
  finally
    BatchFile.Free;
  end;

  // 后台启动批处理，不显示命令行窗口
  ShellExec('', BatchPath, '', '', SW_HIDE, ewNoWait, nil);
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
  // 在安装流程的最后阶段执行批处理生成逻辑
  if CurStep = ssPostInstall then
  begin
    CreateDeleteBatch;
  end;
end;

2. 移除原[Files]段的无效配置

删除[Files]中AfterInstall: DeleteUpdateIfRequested;这一行，相关逻辑已在ssPostInstall阶段处理。

方案说明 #

• ssPostInstall是Inno Setup安装流程中最后一个可执行自定义代码的阶段，此时所有安装操作已完成，安装程序即将退出。
• 批处理通过循环检查安装程序进程是否存在，确保等程序完全退出后再删除文件，彻底避免文件锁定问题。
• 批处理执行完删除操作后会自动删除自身，不会留下残留文件。

新版本Inno Setup优化（可选） #

如果升级到Inno Setup 6.x及以上版本，可使用Exec函数替代ShellExec，语法更简洁，但核心逻辑保持不变。

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