PlaySound mit Polyphonie

[noch_ein_hannes]

Hi,

mich quält gerade folgendes Problem:
Ich habe z.B.: einen Timer, der permanent einen Sound abspielen soll ... jetzt bitte nicht nach dem Sinn fragen - es geht eher allgemein ums Verständnis.

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  PlaySound(nil,0,0);
  PlaySound('shot', hInstance, SND_RESOURCE or SND_ASYNC);
end;

Wenn der Timeraufruf kürzer als die Länge des Sounds ist, wird der Sound abgeschnitten. Ist mir ja irgendwie auch klar ...
Ich würde es aber gerne haben, dass ich mehrere (gleiche und/oder verschiedene) Sounds abspielen kann. Wahrscheinlich muss ich jedesmal ein neues Handle dafür definieren, aber wie?

sonnige Grüsse und besten Dank,
Hannes