Текущий архив: 2004.07.04;
Скачать: CL | DM;

Вниз

Как воспроизвести два и более звуковых файлов одновременно?   Найти похожие ветки 

← →
demonyator ©   (2004-04-20 14:57) [0]

Использую PlaySound(PChar(OpenDialog1.FileName), 0, SND_ASYNC or SND_LOOP), но при запуске второго файла, первый замолкает.

---

← →
xShadow ©   (2004-04-20 15:10) [1]

Используй команды MCI
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;


---

← →
demonyator ©   (2004-04-20 15:24) [2]

Пишет, если файл с русскими буквами:
"Указанное устройство не открыто или не опознано интерфейсом MCI"

---

Страницы: 1 вся ветка

Текущий архив: 2004.07.04;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.024 c