Mega Code Archive

 

Categories / Delphi / Examples

 

Play wav files

You can use the mci commands (easy using the mciSendString() routine) or - even easier, this: uses MMSystem; var s: array[0..79] of char; begin StrCopy(s, 'ding.wav'); sndPlaySound(s, 0); end;