有关mediaplayer控件的问题。(50分)

我用mediaplayer做了个简单的媒体播放器，而且是照有关书上例子做的。可是却不能运行。只是闪一下就又回到了编辑状态。请问这是为什么呢？谢谢！

相关代码如下：
procedure TForm1.formclose(Sender: TObject; var Action: TCloseAction);
begin
form1.Mediaplayer1.close;
end;

procedure TForm1.formcreat(Sender: TObject);
begin
form1.MediaPlayer1.open;
form1.opendialog1.filter:='wave Files(*.wav)|*.wav'+'all files(*.*)|*.*';
end;

procedure TForm1.button1click(Sender: TObject);
begin
form1.OpenDialog1.execute;
end;

procedure TForm1.opendialogcanclose(Sender: TObject;
var CanClose: Boolean);
begin
if form1.opendialog1.fileName<>''
then
form1.Mediaplayer1.fileName:=form1.opendialog1.filename;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
form1.TrackBar1.Min:=0;
form1.TrackBar1.max:=form1.Mediaplayer1.length;
form1.TrackBar1.position:=form1.mediaplayer1.position;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
form1.opendialog1.filter:='all files(*.*)|*.*';
form1.opendialog1.filter:=form1.opendialog1.filter+'wave files(*.wave)|*.wave';
end;

end.

你没有打开视频！所以看不见图象！
RealAudio1.DoPlay;
RealAudio1.SetControls('ImageWindow');
RealAudio1.Visible:=true;
RealAudio1.SetFullScreen;

没看明白，我也是刚学的，不过这样就可以的啊！

procedure TForm1.button1click(Sender: TObject);
begin
if opendialog1.execute then
mediaplayer1.open;
mediaplayer1.filename:=opendialog1.filename;
end;

其他都不用管，这样就可以运行了！

谢谢你们了。
可是后来运行时。系统提示这样的错误：
project project1.exe raised exception class EMCIDeviceError with
message 'MMSYSTEM281 无法播放该文件。请检查文件名或安装支持这种文件类型的驱动
程序。'process stopped.use step or run to continue.
这又是什么原因啊。

这好象是MCI驱动的问题吧！
装好一个win98以后，除delphi以外什么都不装，用mediaplayer控件做的播放器就不能播放
VCD的DAT文件（以前的DELPHI是这样，不知道现在的版本是不是可以放），这时候你可以手工
在WIN.INI文件里改动一下就可以了，具体你可以查找一下以前的帖子（刚才没找到，我在CHM的离
线数据库里很好找的，在线却没找到，还是自己动手吧[][]）！

你这是因为和Mediaplayer冲突的缘故，你要进行对他们的判断。