덤프 님이 쓰신 글 :
: 질문 1
:
: mp3재생이 끝나면 Progress  함수를 실행 시키려고 하는데요...
:
: 소스는
:
: procedure Tpart1.AAA
: begin
:   MediaPlayer1.FileName := Table1.Fields.Fields[1].Text;
:   MediaPlayer1.Open;
:   MediaPlayer1.Play;
:   IF  MediaPlayer1.Stop = true then   Progress;
: end;
:
: 이렇게 해봤는데 안돼서요 다른 방법이 머가 있을까요?


procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
  if MediaPlayer1.NotifyValue = nvSuccessful then ShowMessage('정상적인 음악 종료!!!');
end;

위 처럼 OnNotify 이벤트에서 처리 하시면 됩니다.
하지만 웬만하면 ActiveX import 하셔서 사용하시던지 DirectX 직접 사용하시는게 좋습니다.