Wave файлы

[SERG1980]

Привет народ! делаю прогу в которой проигрываются 2 wave файла. Сначала играет один файл вслед за ним второй но когда начинает играть второй файл первый прерывается не доиграв до конца. Как сделать независимое проигрывание двух wave файлов. Я использовал ф-ию sndPlaySound.

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

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

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; 
 
Взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php

[SERG1980]

Спасибочки!!! А нельзя чтобы эти файлы из ресурсов проигрывались?

[zetrix]

Распаковать во временную папку и проиграть (возможно не оптимальный ход)

[vitalik007]

с помощью bass.dll создаёшь два потока и всё

[SERG1980]

Спасибо всем всё заработало!