@nikluetke
das kannst du abschalten indem du einen start parameter bei der init funktion hinzufügst.
Das geht bei meiner units gans einfach:
du hast eine playliste vom typ TStringList z.b. und jetzt muss du nur noch ein ereginis:
OnNewSound mit einer porcedure bestetzen und Sound.NewSound in einen Timer aufrufe und fertig.
und in dieser procedure kannst du dann bestimmen welche datei als nächste kommt.
Ich vermute mal du hast eine ListBox als playliste dann kannst du z.b. es so machen:
Delphi-Quellcode:
procedure Tform1.ChangeSoundFile;
begin
if ListBox1.ItemIndex+1 <= ListBox1.items.Count-1 then begin
ListBox1.ItemIndex:=ListBox1.ItemIndex+1
ListBox1Click(sender); // musst du noch anpassen.
end;
end;
Das wars schon.