mp3 player

[DeddyH]

Wie ist es denn so?

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);
      
  (* 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;