如何在Inno Setup中配置IIS应用池高级设置，尤其是Idle Time-out属性

Inno Setup官方文档确实没专门覆盖IIS配置的细节，下面提供两种可靠的实现方式，对应不同的操作习惯：

方法一：用AppCmd命令行工具（简单直接） #

AppCmd是IIS自带的管理工具，路径一般在C:\Windows\System32\inetsrv\appcmd.exe，直接用它修改应用池属性最省心：

核心命令 #

• 设置20分钟空闲超时：

  appcmd set apppool "你的应用池名称" /processModel.idleTimeout:00:20:00
  

• 禁用空闲超时（永不回收）：

  appcmd set apppool "你的应用池名称" /processModel.idleTimeout:00:00:00
  

Inno Setup集成代码 #

把命令封装成函数，在安装完成后执行：

[Setup]
PrivilegesRequired=admin  ; 必须管理员权限才能操作IIS

[Code]
function SetAppPoolIdleTimeout(AppPoolName: string; Timeout: string): Boolean;
var
  AppCmdPath: string;
  ResultCode: Integer;
begin
  AppCmdPath := ExpandConstant('{sys}\inetsrv\appcmd.exe');
  Result := Exec(AppCmdPath, Format('set apppool "%s" /processModel.idleTimeout:%s', [AppPoolName, Timeout]), '', SW_HIDE, ewWaitUntilTerminated, ResultCode);
  Result := Result and (ResultCode = 0);
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
  if CurStep = ssPostInstall then
  begin
    // 替换成你的应用池名称和超时时间
    if not SetAppPoolIdleTimeout('MyAppPool', '00:20:00') then
    begin
      MsgBox('应用池空闲超时设置失败', mbError, MB_OK);
    end;
  end;
end;

方法二：用WMI脚本（和现有创建逻辑集成） #

如果你的代码是通过WMI创建应用池，直接扩展现有代码就能修改属性，不需要额外调用外部工具：

[Setup]
PrivilegesRequired=admin

[Code]
procedure SetAppPoolIdleTimeoutViaWMI(AppPoolName: string; TimeoutMinutes: Integer);
var
  WMIService: Variant;
  AppPools: Variant;
  AppPool: Variant;
  TimeSpanStr: string;
begin
  WMIService := GetObject('winmgmts:\\.\root\WebAdministration');
  if VarIsEmpty(WMIService) then Exit;

  AppPools := WMIService.ExecQuery(Format('SELECT * FROM ApplicationPool WHERE Name = "%s"', [AppPoolName]));
  if AppPools.Count = 0 then Exit;

  AppPool := AppPools.ItemIndex(0);
  // 转换为IIS WMI要求的TimeSpan格式，PT0H20M0S代表20分钟
  if TimeoutMinutes = 0 then
    TimeSpanStr := 'PT0H0M0S'  // 禁用超时
  else
    TimeSpanStr := Format('PT0H%dM0S', [TimeoutMinutes]);

  AppPool.ProcessModel.IdleTimeout := TimeSpanStr;
  AppPool.Put_();  // 保存修改
end;

// 在安装流程中调用
procedure CurStepChanged(CurStep: TSetupStep);
begin
  if CurStep = ssPostInstall then
  begin
    // 设置MyAppPool超时为20分钟，传0则禁用
    SetAppPoolIdleTimeoutViaWMI('MyAppPool', 20);
  end;
end;

关键点提示 #

• 必须开启管理员权限：脚本开头的PrivilegesRequired=admin不能少，否则会因权限不足操作失败
• 超时格式注意：AppCmd用HH:MM:SS，WMI用PT[H]M[S]格式，别搞混
• 提前校验：可以先检查IIS是否安装，避免执行无意义的命令

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