Delphi 实现简易语音发音（基于TTS方式）

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

>>阅读原文<<