MediaPlayer плейлист

[pnz_punisher]

Здравствуйте!
Поставил в программку MediaPlayer1, музон прописал и т.д., но вот интересно узнать, а можно ли к нему как-нибудь сделать Плей Лист ?
Ну чтобы при нажатии (допустим на BitBtn6 (кнопка), вызывалась отдельная форма в которой заранее забит список .mp3 файлов, которые можно прям от туда запускать в MediaPlayer1 ?)

[SoftKoc]

Конечно можно! Вас интересует возможно это сделать, или как это сделать?

[spamer]

pnz_punisher посмотрите вниз этой страницы, и увидите чудо...готовые плейлисты...

[SoftKoc]

Вот есть у меня один готовый пример!
Если вас он устраивает нажмите на весы.

Вот держите >>PrimerPL.rar<<

А вот код с него:

var
  Form1: TForm1;
  SL: TStringList;
//--------------------------------------
procedure TForm1.FormCreate(Sender: TObject);
begin
 SL:=TStringList.Create;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
SL.Free;
end;

//Добавляем треки
procedure TForm1.Button1Click(Sender: TObject);
Var
 I: Integer;
begin
OpenDialog1.Options:=[ofHideReadOnly,ofAllowMultiSelect,ofEnableSizing];
 IF OpenDialog1.Execute Then
  Begin
   For I:=0 to OpenDialog1.Files.Count -1 do
    Begin
     SL.Add(OpenDialog1.Files[I]);
     ListBox1.Items.Add(ExtractFileName(OpenDialog1.Files[I]));
    End;
  End;
end;

procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
 MediaPlayer1.FileName:=SL.Strings[ListBox1.ItemIndex];
 MediaPlayer1.Open;
 MediaPlayer1.Play;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
SL.Delete(ListBox1.ItemIndex);
ListBox1.Items.Delete(ListBox1.ItemIndex);
end;

[pnz_punisher]

КРУТО!!! СПАСИБО!!!

[SoftKoc]

Не за что!
Если чего всегда рад помочь!=)