mp3 player

[DeddyH]

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
  (* ListBox ist leer -> Dialog aufrufen *)
  if Form2.Listbox1.Items.Count=0 then
    (* Dialog wurde nicht abgebrochen, Datei also angegeben *)
    if Opendialog1.Execute then
      (* Datei zur ListBox hinzufügen *)
      Form2.Listbox1.Items.Add(Opendialog1.FileName);

  (* Wenn Einträge vorhanden, aber keiner gewählt, dann ersten auswählen *) 
  if (Form2.ListBox1.Items.Count > 0) and (Form2.Listbox1.ItemIndex = -1) then
    Form2.ListBox1.ItemIndex :=0;
  (* Eintrag ausgewählt? *)
  if Form2.Listbox1.ItemIndex > -1 then 
    begin
      (* Eintrag dem Mediaplayer zuweisen und abspielen *)
      Mediaplayer1.FileName:=Form2.Listbox1.Items[Form2.Listbox1.ItemIndex];
      Mediaplayer1.open;
      MediaPlayer1.Play;
      Timer1.Enabled:=true;
      Progressbar1.Max:=Mediaplayer1.Length;
    end;
end;