var s:string
begin
getdir(0,s);
mediaplayer1.FileName:=s+'\avi\df11fzgz01.wav';
mediaplayer1.Open;
mediaplayer1.Play;
end;
procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
if (mediaplayer1.NotifyValue=nvsuccessful)and (mediaplayer1.Mode=mpstopped) then
begin
~~~~~~~~~~~~~~~~~~~~~~//应该在这里实现吧,我也没有试过
end;
end;