Mein Beispiel ist für eine WAVE-Datei. In einem Timer (besser für die CPU
) wird geprüft. Interval sollte 100ms sein.
Delphi-Quellcode:
uses MMSystem;
procedure TForm.ButtonClick(Sender: TObject);
begin
PlaySound('Sounddateiname.wav', 0, SND_ASYNC or SND_FILENAME or SND_LOOP);
Timer.Enabled := true;
end;
procedure TForm.TimerTimer(Sender: TObject);
begin
if (NegativeBdingung) or not (PositiveBedingung) then // je nach belieben eines wählen
begin
Timer.Enabled := false;
PlaySound(nil, 0, nil);
end;
end;
Gruß,
ManuMF