Заставим программу заговорить.

Здравствуйте, дорогие настоящие читатели и будущие читатели блога(перейти в разряд настоящих можно, перейдя по этой ссылке)!
Сегодня мы научим программу говорить.
Для этого мы будем использовать Microsoft Speech API.
Чтобы начать работать с этой библиотекой добавим вот такой файл в проект:

uses Comobj;

А теперь самое главное: допустим по клику на Button1, программа должна произносить "Hello world!".
Тогда код на событие OnClick будет выглядеть так:

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

Как видите, все довольно просто:)
Теперь компилируем проект и радуемся!

Мне остается пожелать вам только
Удачи!  SourceExpert.Blogspot.com