Win7、Win10自带Windows Speech SDK 5.4版本(XP需装Windows Speech SDK 5.1,http://www.microsoft.com/download/en/details.aspx?id=10121)
procedure TForm1.btnSpeakClick(Ser: TObject);
begin
SpVoice1.Speak(Memo1.Text,SVSFlagsAsync);
//前面播放完了再播放,
//if SpVoice1.Status.RunningState = SRSEDone then //SpVoice1.Speak(Memo1.Text,SVSFlagsAsync);
;