[Back to DELPHI SWAG index]  [Back to Main SWAG index]  [Original]

{
You can very simply play WAV files using the sndPlaySound
function in the MMSYSTEM.DLL library. The tricky bit is in
passing the filename to the function, which requires a
null-terminated string. The little routine below converts
the filename to an array of characters, which sndPlaySound
is happy with.

Freeware, have fun!
}

Add 'MMSystem' to Uses.

Add 'procedure PlaySound(WavFileName: String);' to declarations.

Add the code below to Implementation.

procedure MyForm.PlaySound(WavFileName: String);
var
   s: Array[0..79] of char;
begin
{Convert filename to a null-terminated string}
StrPCopy(s, WavFileName);
{Play the sound asynchronously}
sndPlaySound(s, 0); {see mmsystem.hlp for other values}
end;

[Back to DELPHI SWAG index]  [Back to Main SWAG index]  [Original]