delphi - 如何更改文本转语音中的默认语音？

Question

我正在使用带有以下代码的 OLEVariant Voice 变量从文本文件中读取行。

var
  Voice: OLEVariant;
begin
  Voice:= CreateOleObject('SAPI.SpVoice');
  Voice.speak('Hello!');
end;

我想知道有没有办法改变播放的默认声音。

标签： delphitext-to-speech