一个好玩的东东，大家可以简易用PASCAL来发音。
以下代码。：
Uses Dos;
Var f:text;
Begin
Assign(f,'MyVoice.Vbs');
ReWrite(f);
WriteLn(f,'CreateObject("SAPI.SpVoice").Speak "几"'); //在 几 处输入您要发音的文字，中英等等皆可
Close(f);
Exec('MyVoice.Vbs','');
End.
复制过去吧，很好的
求关注。。
pascal镇楼

对了，要打开自动生成的文件，也可以自动过程导入

这不就是vbs吗 跟pascal什么事。。。

uses comobj;
var
obj: variant;
begin
obj:=createoleobject('SAPI.SpVoice');
writeln('好好学习天天向上。');
obj.Speak('hou hou share she, ten ten soung shang.');
writeln('来自pascal吧的声音。');
obj.Speak('lai jying pascal bao dee shang yining');
end.

楼主啊你要知道一些系统文件有问题的电脑练vbs都跑不起啊，会出错啊，比如某七喜。