зы а зачем 2 темы-то создавать?

Я ДУмаю Делфи. Там есть готовые компоненты Delphi 5 -пару строк кода написать.

вы вот строки кода считаете..
а ведь человек ничему не научится, если пару строк напишет. зафиг тогда вообще учиться?

Цитата(HELP2ME @ 19.9.2005, 16:36)

sergei.z как ты думаешь шанс есть написать его на делфи если не зная язык.т.е. быстренько прочитать разобраться и написать за 1 месяц?

Да не проблема, на делфе он пишется за 2-3 часа, со всеми наворотами ака плэйлист, показ времени, громкость и т.д.

Хех поехали...
Открываем делфи и на появившуюся форму кладем 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.

Это сообщение отредактировал(а) ~FoX~ - 22.9.2005, 11:23