如何检查是否安装了CAPICOM？

Question

我的应用程序使用CAPICOM。在某些机器上可能没有安装，因此安装程序需要安装它。我已经添加了msi安装程序，以便在安装应用程序时运行。

如果安装了CAPICOM以避免冗余安装，有没有办法在Inno Setup中进行测试？

Answer 1

如果您查看CAPICOM SDK发行版示例，特别是\Samples\vbs\CVersion.vbs，您将看到一种用于确定库版本号的试用错误特性测试方法。在该脚本的开头，作者尝试初始化CAPICOM.Store对象并打开根证书库(供以后使用)：

' Open the machine Root store, since it is safe to assume it always has some certs in it.
Set oStore = CreateObject("CAPICOM.Store")
oStore.Open CAPICOM_LOCAL_MACHINE_STORE, "Root", CAPICOM_STORE_OPEN_READ_ONLY
If Err.Number <> 0 Then
    GetCAPICOMVersion = CAPICOM_NOT_INSTALLED
    Exit Function
End If

由于没有平面API函数可以报告CAPICOM安装状态(或版本)，我会从上面提到的脚本中获得灵感，但我只会尝试初始化一些CAPICOM COM对象(存在于所需的版本中)，假设如果初始化失败，则CAPICOM未安装：

[Code]
function IsCapiComInstalled: Boolean;
begin
  Result := True;
  try
    CreateOleObject('CAPICOM.Store'); { try to initialize CAPICOM.Store object }
  except
    Result := False; { if that fails, CAPICOM is not installed }
  end;
end;

然后可以将此类辅助函数用于选定脚本部分项目中的Check参数。