Голос

[Andr]

В винде есть такая функция: ты вводишь тект, жмешь "ОК" и введенный тект озвучивается. Как это сделать программно?

[Viteef]

В винде только английский текст озвучивает. Разве что транслитерация?(смешно)

[kl45gp]

Я тебя немного не понял. Ты хочешь спросить как это работает?

[Andr]

Хотелось узнать как его программно включить, ввести тект и "проиграть" его

[pu4koff]

uses Comobj;
...
procedure TForm1.Button1Click(Sender: TObject);
var
   voice: OLEVariant;
 begin
   voice := CreateOLEObject('SAPI.SpVoice');
   voice.Speak('Ya krevetko!', 0);
end;

[Andr]

О, то что надо!! А не подскажешь как регулировать громкость и скорость?

[pu4koff]

понятия не имею. Этот кусок я вапще из Delphi World скомуниздил. Посмотри документацию по Спич АПИ на майкрософт.ком