Code:

// Works on NT, 2k, XP, Win9x with SAPI SDK

// reference & Further examples: See links below!

 

uses Comobj;

 

procedure TForm1.Button1Click(Sender: TObject);

var

voice: OLEVariant;

begin

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

voice.Speak('Hello World!', 0);

end;

 

 

Взято с сайта https://www.swissdelphicenter.ch/en/tipsindex.php

 

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!


Защитный код
Обновить