Закончилось ли воспроизведение?

[bagish]

Перед вами код воспроизведения звукового ресурса из dll:

var
  hModule:THandle;
begin
 hModule:=LoadLibraryEx('test.DLL',0,LOAD_LIBRARY_AS_DATAFILE);
 if hModule<>0 then
   PlaySound(file_ID,hModule, SND_RESOURCE+SND_ASYNC);
end;

На мой взгляд он хорош для воспроизведения коротких звуков. А если звучание длится 3-4 минуты и мне надо отловить его окончание? Т.е. мне нужна индикация этого события.
Удаление SND_ASYNC приводит к потере активности всех компонентов до конца воспроизведения и поэтому мне не подходит. Организовать цикл и дождаться его окончания тоже не удаётся: SND_ASYNC разрушает его. Есть предложения?

[Stilet]

Есть, смотри в сторону многопоточности

[bagish]

Сообщение от Stilet

Есть, смотри в сторону многопоточности

Это как? До этого имел дело в основном только с компонентами и нужна мне конкретная помощь.

[Stilet]

Запросто в Demos делфы есть пример работы с TThread его и опануй