Использование объекта приложения Office Interop для получения версии PowerPoint во время установки с помощью Inno Setup

Вы можете использовать CreateOleObject для вызова PowerPoint и возврата версии:

[Code]
function GetPowerPointVersion(): string;
var
  MyPowerPoint: Variant;
begin
  MyPowerPoint := CreateOleObject('PowerPoint.Application');
  Result := MyPowerPoint.Version;
  MyPowerPoint.Quit;
end;

Для полноты это код Pascal Script, который я сейчас использую для получения версии PowerPoint, основанный на ответе Матея, с откатом к проверке реестра в случае сбоя:

function PowerPointVersion(): String;
var
  key: String;
  versionToUse: String;
  installedPowerPoint: Variant;
begin

  versionToUse := '';

  try
    installedPowerPoint := CreateOleObject('PowerPoint.Application');
    versionToUse := installedPowerPoint.Version;
    installedPowerPoint.Quit;
  except
    versionToUse := '';
  end;

  if versionToUse = '' then
  begin
    if RegQueryStringValue(GetHKLM, 'SOFTWARE\Microsoft\Office\ClickToRun\Configuration','VersionToReport', key) then
    begin
      versionToUse := key;
      Delete(versionToUse, Pos('.', key), Length(key));
      versionToUse := versionToUse + '.0';
    end;
  end;

  if versionToUse = '' then
  begin
    if RegQueryStringValue(HKCR, 'PowerPoint.Application\CurVer\','', key) then
    begin
      StringChangeEx(key, 'PowerPoint.Application.', '', True);
      versionToUse := key;
      versionToUse := versionToUse + '.0';
    end;
  end;

  try
    // Check to see if versionToUse string can convert to a float: 
    StrToFloat(versionToUse);
    Result := versionToUse;
  except
    Result := '';
  end;

end;

Оказывается, использование Microsoft.Office.Interop.PowerPoint, который является пакетом NuGet, не является хорошей идеей, поскольку он не поддерживается и может привести к сбою. Смотрите это обсуждение.

Этот внешний код C# будет работать, и его можно настроить для вызова из Inno Setup. Однако использование CreateOleObject в коде Inno Setup Pascal, как описано в принятом ответе, намного проще.

[SupportedOSPlatform("windows")]
public class PowerPointEnvironment
{
    public static string GetPowerPointVersion()
    {
        string CurVer = "";
        Type? PowerPointType = Type.GetTypeFromProgID("PowerPoint.Application");
        if (PowerPointType != null)
        {
            dynamic? thisPowerPoint = Activator.CreateInstance(PowerPointType);
            if (thisPowerPoint != null)
            {
                CurVer = thisPowerPoint.version();
            }
        }
        return CurVer;
    }
}