* TTS朗读功能

Function SP(cText)

    Local oSpeak

    m.oSpeak = CreateObject('SAPI.SpVoice')

    m.oSpeak.Speak(cText,2) && 1为异步，2为同步读完才能继续。

*    m.oSpeak.Speak(cText,1) && 发现读不出来

    Release oSpeak

EndFunc

* .pause() && 暂停

* .resume() && 继续