[Médio]Faça o windows falar
Galera estou trasendo a vocês mais um tutorial bacana, neste irei encinar a faser o windows falar.
~ TUTORIAL ~
1° Passo
Adcione nas
Uses ComObj
2° Passo
Adcione
1 Edit e
1 Button (
Aba Standard)
3° Passo
No Event OnClick do Button adcione o code abaixo:
Código PHP:
var
texto : string;
voz: OLEVariant;
begin
texto := edit1.Text;
voz := CreateOLEObject ('SAPI.SpVoice');
voz.Speak (texto, 10);
~ EXPLICAÇÃO ~
Apos compilar seu programa, escreva um texto no Edit 1 e em Seguida aperte o Button e percebera que o windows irá emitir o som que escrevera.
Credito Code: Não Encontrado
Credito Tutorial: FusioN
Fonte: Google
