Fazendo o Windows Fala ^^

[Master_GC15 0]

Bom pessoal Hoje eu vo insinar a vcs a fazer o windows a fala E um metodo meio antigo mais funfa entaum vamos parar de papo

 

Primeiro passo

 

Coloque o Com Obj nos Uses.

Segundo passo

 

Crie um Edit e um Button e adicione o seguinte código no button:

 

 

CODE

procedure TForm1.Button1Click(Sender: TObject);

var

texto : string;

voz: OLEVariant;

begin

texto := edit1.Text;

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

voz.Speak (texto, 10);

end;

 

 

Terceiro passo

 

Agora inicie o programa, escrava algo no Edit1 e clique no botão, aparerá uma voz dizendo em inglês o que foi digitado.

 

 

FIM.

 

E issuh aew pessoal c ajudei pode agradecer c quizer falow e issuh aew

 

 

Em Breve Video Aula