Хех поехали...
Открываем делфи и на появившуюся форму кладем MediaPlayer со вкалдки System.
В его свойстве VisibleButtons ставим False напротив btRecord и btEject.
Дальше кладем на ворму компанент ListBox со вкалдки Standart (это будет нашь плэйлист)
Ьросаем тудаже компанент OpenDialog со вкладки Dialogs (в нем мы будем файлы выбирать, которые в плэйлист совать).
Ну и на поледок бросаем 2-е кнопки ака Button в свойстве caption первой кнопки пишем Add to List в свойствах второй пишем Exit.
Дальше дело техники - тыкаем на первую кнопку два раза и пишем что нить вроде этого:
| Код |
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then ListBox1.Items.Add(OpenDialog1.FileName);
//Помещаем путь к файлу в нашь лист
end;
|
Выделяем наш ListBox и в его Events тыкам дважды в OnDblClick пишем такой код:
| Код |
procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
MediaPlayer1.Close; //Закрываем предыдущий файл, на всякий случай
MediaPlayer1.FileName := ListBox1.Items.Strings[ListBox1.ItemIndex]; //Загружаем новый файл из плэй листа
MediaPlayer1.Open; //Открываем новый файл
end;
|
Ну и наконец, тыкаем дважды на вторую кнопку и пишем
| Код |
procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;
|
Все.....F9 и приметивный плэер готов! 
Добавлено @ 11:18
Вот полный код юнита
| Код |
unit Unit1;
interface
uses
Forms, Dialogs, MPlayer, StdCtrls, Classes, Controls;
type
TForm1 = class(TForm)
MediaPlayer1: TMediaPlayer;
Button1: TButton;
Button2: TButton;
ListBox1: TListBox;
OpenDialog1: TOpenDialog;
procedure Button1Click(Sender: TObject);
procedure ListBox1DblClick(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then ListBox1.Items.Add(OpenDialog1.FileName);
end;
procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
MediaPlayer1.Close;
MediaPlayer1.FileName := ListBox1.Items.Strings[ListBox1.ItemIndex];
MediaPlayer1.Open;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;
end.
|
|
Там компоненты готовые. Заодно и с кодеками заморочки не будет. Можешь хоть windows media player накликать