Código
var
voz: OLEVariant;
begin
voz := CreateOLEObject('SAPI.SpVoice');
if (Edit1.Text <> 'Digite seu texto aqui') and (Edit1.Text <> '') then
voz.Speak(Edit1.Text, 0); //o sistema vai falar o texto digitado no Edit1
end;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009