Wav file player code

[TBMan]

I found this tonight googling around. Just pass the path to the wav file. The wav plays in the background.

Code: Pascal  [Select][+][-]

1.  
2. uses windows, mmsystem;
3.  
4. procedure PlaySoundFile(filename: string);
5. begin
6. PlaySound(pchar(filename), 0, SND_FILENAME + SND_ASYNC);
7. end;        
8.  
9.  
10.