[WinMen]

СПАСИБО!!!!!!!!!!!!!!!!!!!!!!!!!

[Котяра]

Мне кажется, что программировать авторан особо смысла не имеет. Для программ есть CD Shell Tools, для музыки есть свои автораны...

[WinMen]

Мне кажется, что программировать авто ран особо смысла не имеет. Для программ есть CD Shell Tools, для музыки есть свои автораны.. »

Да,но если я хочу создать свой собственный плеер и запускать с помощью него открывать клипы! просто их много и не получается сделать не сД не дВд диск с ним!

[Shurikss123]

Да,но если я хочу создать свой собственный плеер и запускать с помощью него открывать клипы! просто их много и не получается сделать не сД не дВд диск с ним! »

Мда ты гениий, а кодеки ты тоже в делпфи засунеш?

[WinMen]

так он же и без них будет читать тоже самое что я просто скину их на диск. а кодеки они же не где попало а в sistem32 и вроде виндоус 1.

[Shurikss123]

так он же и без них будет читать тоже самое что я просто скину их на диск. а кодеки они же не где попало а в sistem32 и вроде виндоус 1. »

Твой диск поидет по рукам Правильно? если он поидет по рукам где гарантия что у всех есть эти кодеки. вообшем на диск кинь на всякий случай пакет кодеков! чтобы было! это был дружеский совет!

[Котяра]

Твой диск поидет по рукам Правильно? если он поидет по рукам где гарантия что у всех есть эти кодеки. вообшем на диск кинь на всякий случай пакет кодеков! чтобы было! это был дружеский совет! »

Да, именно так. Подгружать кодеки при воспроизведении не получится, так как они должны лежать в system32 и быть установлены. Лучше всего кинуть инсталлятор кодеков на диск.

[WinMen]

Цитата Shurikss123: Твой диск поидет по рукам Правильно? если он поидет по рукам где гарантия что у всех есть эти кодеки. вообшем на диск кинь на всякий случай пакет кодеков! чтобы было! это был дружеский совет! » Да, именно так. Подгружать кодеки при воспроизведении не получится, так как они должны лежать в system32 и быть установлены. Лучше всего кинуть инсталлятор кодеков на диск. »

Я так и сделаю!

[WinMen]

Ребята спасибо большое!
Можете помочь найти учебник электронный??!

[SlashX]

Используй ListBox и OpenDialog
вот код кнопы добавления файлов в плейлист:

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
if OpenDialog1.Execute then
begin
for i:=0 to OpenDialog1.Files.Count-1 do
begin
ListBox1.Items.Add(OpenDialog1.Files.Strings[i]);
end;
end;
end;

Двойной клик по плейлисту:


procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
if ListBox1.Items.Strings[ListBox1.ItemIndex] <> ''
then
begin
MediaPlayer1.FileName:=ListBox1.Items.Strings[ListBox1.ItemIndex];
MediaPlayer1.Open;
MediaPlayer1.Play;
end;
end;