Category: Multimedia
Title: Use the Microsoft Speech API
Date added: 15.03.2006
Hits: 5748
uses Comobj;
procedure TForm1.Button1Click(Sender: TObject);
var
voice: OLEVariant;
begin
voice := CreateOLEObject('SAPI.SpVoice');
voice.Speak('Hello World!', 0);
end;