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

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