Multimidia - playsound

Top  Previous  Next

var

   s:String;

Begin

     S:='C:\A.WAV';

     

     If WavOutgetNumDevs > 0 then // Tem placa de som instalada!

 

     PlaySound(PChar(S),0,Snd_ASync);

end;