Back

Playing a Wav file:

Make sure MMSystem is in the units 'Uses' clause.

procedure TForm1.Image1Click(Sender: TObject);
begin
    PlaySound ('Cat.wav', 0, snd_async);
end;


Back