Programación General > Delphi

 Codigo Para Agregar Un Sonido

(1/1)

Tit0:
Hola he estado buscando por internet y no he encontrado nada de como se puede hacer un boton al cual cuando lo aprietas empieze a sonar un archivo wav, digo empieze a sonay y no que se ejecute el programa para escucharlo. Solo queria saber el codigo que hay que meter entre begin y end... muuchas gracias de antemano.

Por favor quien los explique, que lo haga para tontos que yo no se nada de delphi...

Enko:
*Coloca en tu aplicacion un componente llamado TMediaPlayer, esta en la pestaña System.
*en la Propiedad FileName de dicho componente Ingresa el nombre del archivo WAV
*En la propiedad de Visible del mismo componete coloca False (para que no se vea)
*en el Evento Form Create coloca: MediaPlayer1.Open;
*En el Evento onClick del boton escribe: MediaPlayer1.Play;

Aqui todo el codigo junto.....

--- Código: Text --- unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, MPlayer; type  TForm1 = class(TForm)    MediaPlayer1: TMediaPlayer;    Button1: TButton;    procedure Button1Click(Sender: TObject);    procedure FormCreate(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end; var  Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject);begin  MediaPlayer1.Play;end; procedure TForm1.FormCreate(Sender: TObject);begin  MediaPlayer1.Open;        //MediaPlayer1.FileName := 'C:\Algo.wav';     end; end.  

Navegación

[0] Índice de Mensajes