M3u файлы, как открыть? Опции

[Артемий]

Народ помогите! Как мне с помощью ListBox открыть m3u файл. Че-то никак не получается.. заранее благодарен!

[volvo]

На форме - 2 ListBox-а: один хранит названия песен (ListBox1, именно так должен называться), второй (возможно - скрытый, ListBox2) - пути к ним... Заполнять так:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
  p: integer;
  SL: TStringList;
begin
  if OpenDialog1.Execute then begin

    SL := TStringList.Create;
    try

      SL.LoadFromFile(OpenDialog1.FileName);
      for i := 0 to SL.Count - 1 do begin
        if (Pos('#EXTM3U', SL[i]) > 0) then Continue
        else begin
          p := pos('#EXTINF', SL[i]);
          if p > 0 then p := Pos(',', SL[i]) + 1;

          (FindComponent(Format('ListBox%d', [2 - byte(p > 0)])) as TListBox).AddItem(
            Copy(SL[i], p, length(SL[i])), nil
          );
        end;
      end;

    finally
      SL.Destroy;
    end;

  end;
end;

По дабл-клику на ListBox1 (по названию песни) - делать так:

procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
  ShowMessage(ListBox2.Items[ListBox1.ItemIndex]);
end;

(вместо ShowMessage запускай на проигрывание файл)

Так лучше?