delphi中MediaPlayer控件怎么用

举个播放当前目录下音乐文件的例子
if (MediaPlayer1.Mode=mpplaying) then //如果正在播放就停止
begin
MediaPlayer1.Stop;
end;
Mediaplayer1.FileName :=ExtractFilePath(Application.ExeName)+'1.mp3';
设置MediaPlayer文件名,使用ExtractFilePath(Application.ExeName)来返回当前目录加文件名
MediaPlayer1.Open ; 打开文件
MediaPlayer1.Play ;播放文件

播放AVI文件建议和openDialog一起使用，比较方便,和openDialog一起用的例子:
if (MediaPlayer1.Mode=mpplaying) then //如果正在播放就停止
begin
MediaPlayer1.Stop;
end;
if opendialog1.Execute then
begin
Mediaplayer1.FileName :=Opendialog1.FileName;
Mediaplayer1.Open;
Mediaplayer1.Play ;
end;
end;
还有如果想在panel这种容器控件中播放的话先在属性中设置DisPlay属性 转移播放窗口
然后在MediaPlayer1.Play后面加一句
MediaPlayer1.DisplayRect := Panel1.ClientRect;