Оцените, пожалуйста!

[uberchel]

Ну раз для детей, вот держи код, можно будет добавлять сколько угодно файлов в раз!

procedure LoadMediaFile(mDir: TLabel; OpenFile: TOpenDialog; List: TListBox);
var
  nam, Dir: string;
  k, k1, k2, i: integer;
begin
  if OpenFile.Execute then
begin
  GetDir(0, dir); k:= length(dir);
  for i:=0 to OpenFile.Files.Count-1 do
begin
  k1:= length(OpenFile.Files.Strings[i]);
  nam:= Copy(OpenFile.Files.Strings[i], k+2, k1-k);
  k2:= length(nam); List.Items.Add(nam);
  mDir.Caption:= Dir + '\';
end;
end;
end;

Ну, и естественно применение:

procedure TForm1.Button1Click(Sender: TObject);
begin
LoadMediaFile(Label1,OpenDialog1,ListBox1);
end;

Label1 -директория с файлами
OpenDialog1 - понятно что ))
ListBox1 - список файлов без пути

P.S не забуть в OpenDialog1 в инспекторе/option/ofAllowMultiSelect
поставить в true;

Помог? Если да, то нажмите на весы с лева =)

[NetSpace]

Спасибо за помощь! А он ведь еще и видео воспроизводит, только видеофайлы надо через кнопки открывать, они на плей-лист не бросаются. Там и кнопка есть ПОЛНОЭКРАННЫЙ РЕЖИМ.

[uberchel]

Так же как mp3 открываешь и воспроизводишь !!!

Чтобы видео отображалось на панели или форме, надо воспользоваться этим кодом:

// размещаем на панели
procedure TForm1.FormCreate(Sender: TObject);
begin
MediaPlayer1.Display:= Panel1;
end;

//при воспроизведении
procedure Tform1.Button1Click(sender: TObject);
begin
with MediaPlayer 1 do begin
FileNAme:= 'Media File';
Open;
Play;
end;
MediaPlayer1.DisplayRect:= Panel1.ClientRect;
end;

а лучше на др форме!

procedure TForm1.FormCreate(Sender: TObject);
begin
MediaPlayer1.Display:= Form2;
end;

procedure Tform1.Button1Click(sender: TObject);
begin
with MediaPlayer 1 do begin
FileNAme:= 'Media File';
Open;
Play;
end;
MediaPlayer1.DisplayRect:= Form2.ClientRect;
end;

//При изменении размеров формы, подгонять видео по форме
procedure Tform2.FormResize(sender: TObject);
begin
MediaPlayer1.DisplayRect:= Form2.ClientRect;
end;

[NetSpace]

да видео он показывает! я ж его как видеоплеер и задумаывал изначально

[BigBrain]

Добавь визуализацию! Как это сделать я и сам хочу знать, а ты может и сможешь)