Sonido a un boton

[ojimenezg2000]

Hola a todos.Mi pregunta es la siguiente.Quiero meter un sonido de formato *.wav que suene cuando pulse un TButton.Se puede hacer???Me gustaria que si alguien lo sabe me lo dijese.Muchas gracias

[[seoane]]

Coloca en el evento OnClick del boton algo como esto:

Código Delphi [-]
uses mmsystem;

procedure TForm1.Button1Click(Sender: TObject);
begin
  PlaySound('c:\windows\media\chord.wav',0,SND_FILENAME or SND_ASYNC);
end;

[TheWatcher]

si se puede lo mas rapido es agregar un mediaplayercontrol y pones el sonido q quieras en el media y lo activas con el boton al darle clic

[ojimenezg2000]

Me gustaria ponerlo sobre un boton y no sobre un control Media Player.La sentencia es PlaySound('c:\windows\media\chord.wav',0,SND_FILENAME or SND_ASYNC); verdad???que pongo, SND_FILENAME ó SND_FILENAME .=
Gracias

[[seoane]]

Empezado por ojimenezg2000

verdad???que pongo, SND_FILENAME ó SND_FILENAME .=

¿Es una pregunta? Si es una pregunta, se debe de poner tal como te lo indico (SND_FILENAME or SND_ASYNC), SND_FILENAME indica que queremos reproducir un archivo y SND_ASYNC le indica a la funcion que no tiene que esperar a que el sonido termine de reproducirse.

[ojimenezg2000]

Gracias.Un saludo

[ojimenezg2000]

Hola de nuevo.Estoy probando lo de PlaySound y me dice que identificador no valido.No se que hacer?Alguna ayuda?Gracias