Как использовать Microsoft Speech API? |
Previous Top Next |
Code: |
// Works on NT, 2k, XP, Win9x with SAPI SDK // reference & Further examples: See links below!
uses Comobj;
procedure TForm1.Button1Click(Sender: TObject); var voice: OLEVariant; begin voice := CreateOLEObject('SAPI.SpVoice'); voice.Speak('Hello World!', 0); end; |
©Drkb::02264
Взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php