Последние записи

made in programmersforum 1

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

7th
Сен

Как проигрывать два звука одновременно?

Posted by maloy under Delphi, Архив

SERG1980

Как сделать независимое проигрывание двух wave файлов?

Трофимов Александр

 uses MMSystem;

 procedure SendMCICommand(Cmd: string);

 var RetVal: Integer;

 ErrMsg: array[0..254] of char;

 begin

RetVal := mciSendString(PChar(Cmd), nil, 0, 0);

 if RetVal <> 0 then

begin {get message for returned value}

mciGetErrorString(RetVal, ErrMsg, 255);

 MessageDlg(StrPas(ErrMsg), mtError, [mbOK], 0);

 end;

 end;

 procedure TForm1.Button1Click(Sender: TObject);

 begin

 SendMCICommand('open waveaudio shareable');

 SendMCICommand('play "C:\xyz\BackgroundMusic.wav"');

 SendMCICommand('play "C:\xyz\AnotherMusic.wav"');

 SendMCICommand('close waveaudio');

 end;