在 Inno Setup 中使用 SAPI 对象

Question

我想在安装过程中使用Windows SAPI COM对象发出声音。 我知道在 VBScript 中他们是这样做的：

Set oVoice = CreateObject("SAPI.SpVoice")
set oSpFileStream = CreateObject("SAPI.SpFileStream")
oSpFileStream.Open "xxx.wav"
oVoice.SpeakStream oSpFileStream
oSpFileStream.Close

我问，如何在 Inno Setup 脚本中执行此操作。 我对 Inno Setup 还很陌生，还没有学会如何使用 CreateOleObject 函数等等。 我试图理解 Inno Setup 文档，但它对我没有帮助。 关于使用 COM 对象的其他答案也没有让我理解这一点。 感谢您的帮助

Answer 1

使用CreateOleObject支持函数：

var
  oVoice, oSpFileStream: Variant;
begin
  oVoice := CreateOleObject('SAPI.SpVoice');
  oSpFileStream := CreateOleObject('SAPI.SpFileStream');
  oSpFileStream.Open('xxx.wav');
  oVoice.SpeakStream(oSpFileStream);
end;

参见Pascal 脚本：使用 COM 自动化对象。

---

有关替代解决方案，请参阅在 Inno Setup 安装期间播放声音。