to li guang:代码大概如下
1, New Application
2, /Project/Import Type Library/Add,
选: Windows/Speech/vtxtauto.tlb
3,
FISpeech: IVTxtAuto;
procedure TMainForm.FormCreate(Sender: TObject);
begin
FISpeech := CoVTxtAuto_.Create;
FISpeech.Register('Demo Site', 'Demo App');
end;
procedure TMainForm.bitbtn1click(Sender: TObject);
begin
FISpeech.Speak(Memo1.Text, vtxtst_READING)
end;