Delphi 實現簡易語音發音（基於TTS方式）

uses Comobj;      procedure TForm1.Button1Click(Sender: TObject);    var      voice: OLEVariant;    begin      voice := CreateOLEObject('SAPI.SpVoice');      voice.Speak('Hello World!', 0);    end;

>>阅读原文<<