Ну раз иструкции пошли, то вот ещё одна о том, как без сторонних библиотек воспроизвести мр3 из-под PlaySound:
Шаг 1. "Создал новую папку. В нее запихал mp3-файлы."
Шаг 2. Открыл CDEx, выбрал нужный mp3 из "новой папки" в диалоге, дальше пункт меню Convert: в результате там получился упакованный wav-файл того же размера и с именем, что и исходная пестня, только с расширением.wav. Повторил для всех остальных.
Шаг 3. Создал текстовый файл DataSound.txt с содержимым
Цитата:
S1 WAVE "1.wav"
S2 WAVE "2.wav"
S3 WAVE "3.wav"
|
Шаг 4. Открыл два проводника, в одном добрался до файла DataSound.txt, а в другом до папки с делфи -> bin (у меня это C:\Program Files\Borland\Delphi7\Bin) и перетянул на brcc32.exe значёк файла из первого эксплорера, в результате в "новой папке" появился DataSound.RES, с ресурсом всё.
Шаг 5. В юните подключил файл ресурса и собсно само воспроизведение
Код:
implementation
{$R *.dfm}
{$R DataSound.res}
uses MMSystem;
procedure TForm1.Button1Click(Sender: TObject);
begin
PlaySound('S1' {'S2'} {'S3'}, HInstance, SND_RESOURCE or SND_ASYNC);
end;
оно и играет