| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как воспроизвести два и более звуковых файлов одновременно? [D7, Win95/98, Win2k, WinXP]

demonyator ©   (2004-04-20 14:57:00) 

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

---

demonyator   (2004-04-20 15:24:00) [1]

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

---

xShadow   (2004-04-20 15:10:00) [2]

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


---

Наверх