Reproduz tudo que voce escreve

[Surfistinha£ 25]

reproduz tudo que voce escreve, **so funciona no XP** ele usa a voz TIO SAM que esta configurado no painel de controle.

 

uses ComObj

 

 

 

procedure TForm1.Button1Click(Sender: TObject);

var

voz: OLEVariant;

begin

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

voz.Speak ('Surf Pra Programador!!', 0);

end;

[DragonBoss 9]

lol =P, tinham postado um tuto igual esses dias atras --'

 

http://www.webcheats.com.br/forum/delphi-vb/358333-delphi-fazendo-o-aplicativo-falar.html

 

=P

[bidoow 0]

Como o DragonBoss falo já tem um! :P

 

http://www.webcheats.com.br/forum/delphi-vb/358333-delphi-fazendo-o-aplicativo-falar.html

 

mas tem 2 melhor ainda agora

vlw

[Surfistinha£ 25]

LOL juro que eu nao vi me descupe gente

Moderadores podem fechar descupe

['Cz 14]

Fechado à pedido do autor