Beszélő számítógép

Top  Previous  Next

Aki buherálta már kicsit jobban a windows-t, az tudja, hogy beszélni is tud. Ezt elérhetjük programból is, csak sajna kizárólag angolul

 

COMOBJ

 

procedure TForm1.Button1Click(Sender: TObject);

var

hang: OLEVariant;

begin

hang := CreateOLEObject('SAPI.SpVoice');

hang.Speak(form1.Memo1.Lines.Text, 0);

end