WAV без MediaPlayer! Как узнать что педыдущий файл еще проигрываетя?

[KORVINKORI]

Я использую для воспроизведения WAV:

USES mmsystem;
sndPlaySound('C:\TEST.WAV',SND_ASYNC); // PLAY
sndPlaySound('C:\TETS.WAV',SND_ASYNC+SND_LOOP); // Loop Mode (зацикливание)
sndPlaySound(Nil,SND_ASYNC); //STOP


Но у меня в процессе создания программы возникла проблема. Если на воспроизведение приходит команда проигрывать другой файл, предыдущий прерывается  , что нежелательно. Как узнать что предыдущий файл еще проигрывается? 

[zubr]

Добавь флаг SND_NOSTOP

SND_NOSTOP - If a sound is currently playing, the function immediately returns FALSE, without playing the requested sound.

(MSDN)

[KORVINKORI]

Попробовал!
Действительно первый не останавливается!    Но и второй если подаешь команду раньше не запускается! И звуковое сообщение 'съедается'  Есть ли какой нибудь флаг который укажет, что первый файл проигран?

[zubr]

KORVINKORI, я не понял, что ты хочешь. Из твоего 1-го поста выходит, что тебе надо, чтобы второй файл нельзя было проиграть, пока не закончится проигрывание 1-го. Отсюда вытекает что то типа:

Код:

If not OpenDialog1.Execute then
  exit;
  While not sndPlaySound(PChar(OpenDialog1.FileName), SND_ASYNC or SND_NOSTOP) do
  begin
    Sleep(500);
    Application.ProcessMessages;
  end;

[KORVINKORI]

zubr! СПАСИБО!!! Все получилось!