Hallo,
so hab da ma versucht nen Programm zu schreiben dass die gesamte musik die in C:\Dokumente und Einstellungen\* ist in eine Liste (Checklistbox2)
schreiben soll und dann alle man auf "check" setzt abspielt nur leider spielt er immer nur den letzten track ab....
so holt es die Musik:
Delphi-Quellcode:
begin
if DirectoryExists('C:\Dokumente und Einstellungen\') then
FindFiles ('C:\Dokumente und Einstellungen\', '*.mp3', True, CheckListBox2.Items)
else
CheckListBox2.Items.Text:='Keine .mp3 Dateien in C:\Dokumente und Einstellungen';
end;
so spielt der ab:
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
Var i:integer;
begin
for i:=0 to CheckListBox2.Items.Count do
begin
if (CheckListBox2.Checked[i] = true) then {Fehler liegt in dieser Schleife....weiss nich wie man die Schleife "Pausiert"}
begin
a:=CheckListBox2.Items.Strings[i]; {a ist ein string der für den Pfad der Datei steht}
MediaPLayer1.FileName:=a;
MediaPlayer1.Open;
MediaPlayer1.Play;
end
end;
end;
Hoffe könnt mir helfen!