Какие функции доступны в Delphi для проигрывания звукового файла?
Вот самый быстрый путь:
uses MMSystem;
procedure TForm1.Button1Click(Sender: TObject);
begin
sndPlaySound('C:\Windows\Media\Tada.wav',
SND_NODEFAULT Or SND_ASYNC Or SND_LOOP);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
sndPlaySound(nil, 0); // Stops the sound
end;
С функцией sndPlaySound от WIN32-API (Единица MMSystem):
sndPlaySound ('C:\Windows\Media\Tada.wav', SND_ASYNC);
Эта страница объясняет довольно хороший, как использовать функцию sndPlaySound и как встроить wav-файл как ресурс: http://www.latiumsoftware.com/en/delphi/00024.php
Полное учебное руководство доступно в: http://sheepdogguides.com/dt3f.htm
Это немного старо. Но это должно работать.