问一个mediaplayer的问题(100分)

mediaplayer.filename:=opendalog.filname;
mediaplayer.open;
mediaplayer.play;
以上代码可以实现媒体文件的播放，但是在播放的时候，mediaplayer控件上的play按纽还是
正常显示，而stop按纽却没有被激活，不知道用什么办法可以将stop接纽激活？
另外，怎么样才能判断，所选的媒体文件已经播放完了，要等待下一首的播放？
请详细说明一下，谢谢
另外，用过inno setup制作安装程序的朋友，有没有试过把一个目录也封装进安装文件里面过？
如果可以的话，请告诉我方法，谢谢！

怎么没人回答呢？
人都不在吗？

晕了，真的没人知道吗？
有人告诉我方法，我再加分，有没有人呀？？？？
趾倒了……

自己控制按钮吧。
AutoEnable:=False;
根据 MODE 再用EnableButtons

>>delphiland
我知道autoenable:=false;
和enablebuttons
可惜，我不知道怎么控制，以及我在播放时，需要把play.enable:=false;
但我不知道把play按纽变灰怎么操作，play按纽的名字是什么，怎么样的方法

能不能详细说明一下？
分不够再加，谢谢！……

我是新手，，，

procedure TForm1.FormCreate(Sender: TObject);
begin
MediaPlayer1.Open;
MediaPlayer1.Play;
MediaPlayer1.EnabledButtons:=[btPause, btStop, btNext, btPrev, btStep, btBack];
end;

procedure TForm1.MediaPlayer1Click(Sender: TObject; Button: TMPBtnType;
var DoDefault: Boolean);
begin
case Button of
btPlay :
begin
MediaPlayer1.Play;
MediaPlayer1.EnabledButtons:=[btPause, btStop, btNext, btPrev, btStep, btBack];
end;
btPause :
begin
if MediaPlayer1.Mode=mpPaused then
begin
MediaPlayer1.Play;
MediaPlayer1.EnabledButtons:=[btPause, btStop, btNext, btPrev, btStep, btBack];
end
else if MediaPlayer1.Mode=mpPlaying then
begin
MediaPlayer1.Pause;
MediaPlayer1.EnabledButtons:=[btPlay, btPause, btStop, btNext, btPrev, btStep, btBack];
end;
end;
btStop :
begin
MediaPlayer1.Stop;
MediaPlayer1.EnabledButtons:=[btPlay, btNext, btPrev, btStep, btBack];
end;
btNext :
begin
MediaPlayer1.Next;
MediaPlayer1.EnabledButtons:=[btPlay, btNext, btPrev, btStep, btBack];
end;
btPrev :
begin
MediaPlayer1.Previous;
MediaPlayer1.EnabledButtons:=[btPlay, btNext, btPrev, btStep, btBack];
end;
btStep :
begin
MediaPlayer1.Step;
MediaPlayer1.EnabledButtons:=[btPlay, btNext, btPrev, btStep, btBack];
end;
btBack :
begin
MediaPlayer1.Back;
MediaPlayer1.EnabledButtons:=[btPlay, btNext, btPrev, btStep, btBack];
end;
end;
end;

哦，这样子的，终于了解了，谢谢delphiland，，，对了，您这些东西都是搞自己积累的还是
有别的地方可以参考？如果有参考，那么参考在那里？
是不是在help里面？我找过了，可惜没有找到，能详细说一下help 的使用方法吗？
比如查找Tmediaplayer这个控件那么前面为什么要加一个T,T代表什么？查找下来有很多关于
Tmediaplayer的内容，比如有TMediaPlayer component,,Tmediaplayer，，，，，，
不知道那个是我们需要的，，，另外进到Tmediaplayer里面后，还有很多内容
比如：Hierarchy Properties Methods Events
之类的，都代表什么意思？能说一下吗？我是初学者，，，想多了解一些这方面的知识，有问题也
可以自己看help来解决，谢谢你……

能说说这方面的东西吗？谢谢

gz

其实在代码编辑窗口中按 F1 就可以马上看到有关的帮助信息。
利用索引搜寻也可以。
关于Mediaplayer建议你多看看 MSDN 有关 MCI 的帮助。
Delphi的mmsystem只是部分，不全。
用到高级控制就要用MCI函数了。

谢谢你，送分