在 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 support function:

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

见Pascal Scripting: Using COM Automation objects。

---

有关替代解决方案，请参阅Playing sound during an Inno Setup install。