Создание mp3 плеера в Delphi 7
Для этого вам понадобяться следующие компоненты:
Button вкладка Standard
OpenDialog вкладка Dialogs
MediaPlayer вкладка System
Для этого вам понадобяться следующие компоненты:
Button вкладка Standard
OpenDialog вкладка Dialogs
MediaPlayer вкладка System
Кидаем на форму эти компоненты и в обработчике событий он клик кнопки(Button) пишем:
MediaPlayer1.Close;
if opendialog1.Execute then
begin
MediaPlayer1.FileName:=opendialog1.FileName;
MediaPlayer1.Open;
end;
В итоге код должен получиться таким :
procedure TForm1.Button1Click(Sender: TObject);
begin
MediaPlayer1.Close;
if opendialog1.Execute then
begin
MediaPlayer1.FileName:=opendialog1.FileName;
MediaPlayer1.Open;
end;
end;
end.
По нажатию на кнопку Button будет открываться окно в котором нужно выбрать песню
Плеер готов.
MediaPlayer1.Close;
if opendialog1.Execute then
begin
MediaPlayer1.FileName:=opendialog1.FileName;
MediaPlayer1.Open;
end;
В итоге код должен получиться таким :
procedure TForm1.Button1Click(Sender: TObject);
begin
MediaPlayer1.Close;
if opendialog1.Execute then
begin
MediaPlayer1.FileName:=opendialog1.FileName;
MediaPlayer1.Open;
end;
end;
end.
По нажатию на кнопку Button будет открываться окно в котором нужно выбрать песню
Плеер готов.
Гость
для того чтобы скачать "ИСХОДНИК", Вам нужно кликнуть по рекламным ссылкам.
