delphi如何使用Excel2003自带的朗读文本功能(10)

Excel2003工具栏里有一个“文本到语音”功能，我使用了一下，发现朗读效果不错；而且一般客户都装有Excel,所以我想如果把这个功能运用到我们的delphi开发的项目中，也是一个很“炫”的功能； 我估计这个“文本到语音”功能，可能是某个ocx文件，就是不知道是哪个文件；而且也不知道如何时候，希望有兴趣的朋友一起研究研究。

http://bbs.2ccc.com/topic.asp?topicid=315189

//只需调用IIS就可以做到(前提是必须安装有IIS系统的电脑)。先在user上添加ComObj单元，接着写下下面的代码就可以实现语音朗读功能了。procedure TForm1.Button1Click(Sender: TObject);var ws:WideString;
Sp:Variant;begin
Sp := CreateOleObject('SAPI.SpVoice');
ws := WideString(Edit1.Text);
Sp.Speak(ws);
Sp := Unassigned;end;