如何在Inno Setup安装时通过Office Interop获取PowerPoint版本

优先方案：通过OLE直接调用PowerPoint对象获取版本 #

Inno Setup原生支持OLE自动化，无需额外编写DLL，直接创建PowerPoint.Application对象读取版本号即可，这是最准确的方式，完全避免注册表的不确定性。

以下是实现代码，包含异常捕获和进程清理：

function GetPowerPointVersionViaOLE: string;
var
  PowerPointApp: Variant;
begin
  Result := '';
  try
    // 创建PowerPoint应用实例
    PowerPointApp := CreateOleObject('PowerPoint.Application');
    try
      // 读取版本号（如16.0对应Office 2019/365，14.0对应Office 2010）
      Result := PowerPointApp.Version;
    finally
      // 强制退出实例，避免后台残留PowerPoint进程
      PowerPointApp.Quit;
      PowerPointApp := Unassigned;
    end;
  except
    // 捕获OLE调用失败场景：PowerPoint未安装、权限不足、用户拒绝安全提示等
    Result := '';
  end;
end;

降级方案：通过注册表获取版本号 #

当OLE调用失败时， fallback到注册表查询，覆盖常规安装和Click-to-Run版本的路径：

function GetPowerPointVersionViaRegistry: string;
var
  RegPath: string;
  ExePath: string;
begin
  Result := '';
  // 优先处理64位系统的Office安装
  if IsWin64 then
  begin
    // 检查Office 365 Click-to-Run版本
    RegPath := 'SOFTWARE\Microsoft\Office\ClickToRun\Configuration';
    if RegQueryStringValue(HKLM, RegPath, 'VersionToReport', Result) then
      Exit;
    // 检查常规64位Office的EXE路径，读取文件版本
    RegPath := 'SOFTWARE\Microsoft\Office\CurrentVersion\App Paths\POWERPNT.EXE';
    if RegQueryStringValue(HKLM64, RegPath, '', ExePath) then
      Result := GetFileVersion(ExePath);
  end
  else
  begin
    // 32位系统检查常规Office路径
    RegPath := 'SOFTWARE\Microsoft\Office\CurrentVersion\App Paths\POWERPNT.EXE';
    if RegQueryStringValue(HKLM, RegPath, '', ExePath) then
      Result := GetFileVersion(ExePath);
  end;

  // 兼容旧版本Office（2010及更早）
  if Result = '' then
  begin
    // Office 2010（14.0）
    RegPath := 'SOFTWARE\Microsoft\Office\14.0\PowerPoint\InstallRoot';
    if RegQueryStringValue(HKLM, RegPath, 'Path', ExePath) then
      Result := GetFileVersion(ExePath + 'POWERPNT.EXE');
    // Office 2007（12.0）
    if Result = '' then
    begin
      RegPath := 'SOFTWARE\Microsoft\Office\12.0\PowerPoint\InstallRoot';
      if RegQueryStringValue(HKLM, RegPath, 'Path', ExePath) then
        Result := GetFileVersion(ExePath + 'POWERPNT.EXE');
    end;
  end;
end;

整合方案：优先OLE，失败自动降级 #

将两个方法整合，确保在任何场景下都能获取版本：

function GetPowerPointVersion: string;
begin
  Result := GetPowerPointVersionViaOLE;
  if Result = '' then
    Result := GetPowerPointVersionViaRegistry;
end;

实际使用示例 #

可以在安装初始化阶段调用，做版本兼容性校验：

function InitializeSetup: Boolean;
var
  PPVersion: string;
  MajorVersion: Integer;
begin
  Result := True;
  PPVersion := GetPowerPointVersion;
  
  if PPVersion = '' then
  begin
    MsgBox('未检测到PowerPoint安装', mbError, MB_OK);
    Result := False;
    Exit;
  end;

  // 提取主版本号做兼容性判断（示例：仅支持2010及以上）
  MajorVersion := StrToInt(Copy(PPVersion, 1, Pos('.', PPVersion) - 1));
  if MajorVersion < 14 then
  begin
    MsgBox('本插件仅支持PowerPoint 2010及以上版本', mbError, MB_OK);
    Result := False;
  end;
end;

注意事项 #

• OLE调用时，若用户拒绝PowerPoint的安全提示（如宏安全弹窗），会触发异常，自动降级到注册表方案。
• 必须调用PowerPointApp.Quit清理实例，否则会残留后台PowerPoint进程。
• Inno Setup默认支持OLE，无需额外配置。

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