Programación General > Delphi

 Insertar Sonido

(1/1)

Bicholey:
Hola de nuevo , seguia con mis proyectos de delphi y me hacia una pregunta se puede insertar sonido en mi programa y si es asi como le hago y en que formato lo hago ... utilizo delphi 6.0 , gracias por sus respuestas.
 :D  :D  :D  :D  :D  :D

Enko:
fijate si esto te resulta

--- Código: Text --- unit Unit1; interface uses  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,  StdCtrls, mmsystem; type  TForm1 = class(TForm)    Button1: TButton;    Button2: TButton;    procedure Button1Click(Sender: TObject);    procedure Button2Click(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end; var  Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject);begin  PlaySound(PChar('yes.wav'), 0, SND_SYNC);end; procedure TForm1.Button2Click(Sender: TObject);begin  PlaySound(PChar('No.wav'), 0, SND_SYNC);end; end.  
Tabmien puedes usar el TMediaPlayer....

--- Código: Text --- MediaPlayer1.filename:='ding.wav';MediaPlayer1.open;MediaPlauer1.wait:=true;MediaPlayer1.play;MediaPlayer1.close;  Si no quieres que aparezca, en La propiedad Visible del TmediaPlayer pone False.

Bicholey:
:D  :D  :D


Sensacional muchas gracias...

Navegación

[0] Índice de Mensajes