Добро пожаловать на наш портал

Автор,умей обьяснять понятно.
Вот мой программа от моего плейра и у меня работает,щас делаю плейлист.А в твоей программе плейра есть косяк!
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, MPlayer, StdCtrls, jpeg, ExtCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
OpenDialog1: TOpenDialog;
MediaPlayer1: TMediaPlayer;
Image1: TImage;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
MediaPlayer1.Close;
if opendialog1.Execute then begin
MediaPlayer1.FileName:=opendialog1.FileName;
MediaPlayer1.Open;
end;
end;
end.

Ничего неработает!!!!

С какой стати TMediaPlayer будет играть MP3, если у него, согласно описанию свойства DeviceType, нет поддержки формата MP3?
type TMPDeviceTypes = (dtAutoSelect, dtAVIVideo, dtCDAudio, dtDAT, dtDigitalVideo, dtMMMovie, dtOther, dtOverlay, dtScanner, dtSequencer, dtVCR, dtVideodisc, dtWaveAudio);
property DeviceType: TMPDeviceTypes read FDeviceType write SetDeviceType default dtAutoSelect;
// dtAutoSelect - the device type is determined by the file extension.
// dtAVIVideo - AVI clip
// dtCDAudio - Audio CD recording
// dtDAT - DAT file
// dtDigitalVideo - Digital video recording
// dtMMMovie - MM recording
// dtOther - media type not identified by other categories
// dtOverlay - Overlay
// dtScanner - scanner
// dtSequencer - sequencer
// dtVCR - VCR
// dtVideodisc - Videodisc
// dtWaveAudio - .wav file

плей лист можно из Listbox сделать

та ошибка

Не работает....Пробовал на 2 компах

Спасибо выручил. Ни мог бы ты скинуть видео урок более продвинутого плеера в делфи, если возможно ??)

ммм... пока что нет запаролся на плей листе =)