Fórum Sndplaysound????? #225015

Abaixo está um código de exemplo de utilização do SndPlaySound.
Altere o valor da constante FileName para o caminho de um arquivo
wav no seu PC.

Declare a unit MMSystem

O SndPlaySound só toca arquivos .WAV
------------------------------------------------------------------------------------

const FileName = ´c:\windows\media\Inicialização do Windows XP.wav´;

procedure TForm1.btnRetornarAutomaticamenteClick(Sender: TObject);
begin
//toca o som e retorna automaticamente (não espera o som terminar de tocar)
sndPlaySound(FileName,SND_ASYNC);
showmessage(´O som está sendo tocado. Clique em OK quando o som terminar.´);
end;

procedure TForm1.btnAguardarTerminoClick(Sender: TObject);
begin
//toca o som e aguarda o término (esperao o som terminar para continuar a executar o programa)
sndPlaySound(FileName,SND_SYNC);
showmessage(´O som já terminou de tocar. Clique em OK para continuar.´);
end;

procedure TForm1.btnLoopClick(Sender: TObject);
begin
//toca o som e aguarda o término (esperao o som terminar para continuar a executar o programa)
sndPlaySound(FileName,SND_LOOP or SND_ASYNC);
showmessage(´O som será tocado continuamente. Clique em OK quando desejar interromper o som´);
sndPlaySound(nil,SND_ASYNC and SND_NOSTOP);
end;