各位大侠好，在下有几事相求： 1：用MediaPlayer控件编程时如何知道一首歌曲完成？有什么事件发生？注意不是DELPHI自带的，还有RealPlayr的事件。 2：form2.WindowsMediaPlayer1.URL:=('E:\MTV\***.MPG'); form2.WindowsMediaPlayer1.controls.play; form2.WindowsMediaPlayer1.fullScreen:=true;//这条语句放在这不起作用，不能切到全屏。请问要放到什么地方。 3：RealPlayer控件为什么放*.mpg文件时出错。 4：我用的是双头显卡，用以下语句将显示输到电视机上如果窗体大于视频文件显示是黑屏，小于视频文件大小正常。 procedure TForm1.Button3Click(Sender: TObject); begin form3:=tform3.Create(application); form3.Show; form3.RealAudio1.SetSource('E:\我的文件\01.rmvb'); form3.RealAudio1.DoPlay; form3.RealAudio1.SetFullScreen; end; procedure TForm3.FormShow(Sender: TObject); var r:TRECT; begin r:=screen.Monitors[1].BoundsRect; Form3.SetBounds(r.Left,r.Top,r.Right,r.Bottom); form3.RealAudio1.SetFullScreen;//同样这条语句不起作用 end; 但是用MediaPlayer控件显示到电视机上正常。 各位大侠拜托了，谢谢。

1. 有個 OnPlayStateChange 事件    

procedure TForm1.WindowsMediaPlayer1PlayStateChange(ASender: TObject;
  NewState: Integer);
begin
  if NewState = 8 then ShowMessage('播完!');
end;

歌曲/影片的任何狀態改變，都會產生這個事件 而播放完畢的事件，NewState = 8 (wmppsMediaEnded) 2. 這個部份，我在那行會直接出現 Exception....|| 不過，我直接把屬性 fullScreen 設成 True 當設定好 URL 播放的時候，會自動變成全螢幕的 WindowsMediaPlayer 的部份，你可以到 MSDN 找 SDK 看看 3. 我這台電腦沒裝 RealPlayer... 有機會再幫你看看

谢谢，我试试。