sndPlaySound. Delphi. Асинхронное звучание.

[Prisoner]

Сабж. Есть момент запуска какого-то файлика wav sndPlaySound('some_file.wav',SND_ASYNC+SND_NODEFAULT); Музыка будет идти параллельно с процессами в программе, как мне определить кончился ли проигрышь или нет? Заранее спасибо...

[MAKS 24]

Как видишь Артем на твой топик не кто даже ответить не может.
:oszone:

[Prisoner]

MAKS 24, нарушение ОПК 3.7. В следущий раз будет замечание.
PS Я рад, что ты меня узнал, но форум не для разговора, он ТЕМАТИЧЕСКИЙ, прошу тебя соответствовать... пожалуйста :)

[[mzd]]

Попробуй это, может поможет (если звук выводить через TMediaPlayer):

const

*ModeStr: array[TMPModes] of string = ('Not ready', 'Stopped', 'Playing', 'Recording', 'Seeking', 'Paused', 'Open');

procedure TForm1.MediaPlayer1Notify(Sender: TObject);

begin
*with Sender as TMediaPlayer do
*begin
* *Form1.Caption := ModeStr[Mode];
* *{ Note we must reset the Notify property to True }
* *{ so that we are notified the next time the }
* *{ mode changes }
* *Notify := True;
*end;
end;


Исправлено: [mzd], 16:43 6-11-2003

[Prisoner]

[mzd]
В том-то и дело, что не через TMediaPlayer. Итог: за попытку помочь - спасибо, но будь чуточку внимательнее :).