在Delphi 菜单 Project-->Import Type Library
单击 Add 选择 Winnt/Speech/vtxtauto.tlb
Install
uses VTxtAuto_TLB;
var
vtxt:VTxtAuto_;
在Create中
vtxt:=CoVTxtAuto_.Create;
vtxt.Register('','Speech');
朗读时候
vtxt.Speed:=80;//朗读速度
vtxt.Speak(trim(Edit1.Text),10);
edit.text 为朗读内容 10 为不同语气
StopSpeaking
停止当前朗读
AudioPause
暂停当前朗读
AudioResume
从暂停的地方恢复
AudioRewind
重新开始朗读
AudioFastForward;
快速朗读
IsSpeaking WordBool 是否在朗读
Set_Speed Get_Speed
设置和取得朗读速度
