Sıralı mp3 çalma

[baloglurecep]

(19-11-2022, Saat: 07:23)cemakkus Adlı Kullanıcıdan Alıntı:

(19-11-2022, Saat: 02:09)baloglurecep Adlı Kullanıcıdan Alıntı: Dostlar bilgiler için teşekkür ederim. Yeni konu açmama adına buradan sormanın uygun olacağını düşünüyorum. Delphi 7 kullanarak okulumuzda kullandığım zil programını yazmıştım. Birkaç eklenti güncellme yaptım. Nasip olursa da teknofeste götürmek istiyorum. Hatasız olmasına çalışıyorum. Normal mediaplayer nesnesi kullandığımda onNotify olayında mediaplayer nesnesinin stop durumunu (stop durumu) anlamam gerekiyor. Ne yaptımsa olmadı. Stop durumunu anlamam seri porta bilgi gönderecek ve amfiyi kapatacak. yalnız activex nesnesi mediaplayer kurup kullandığımda stop durumumu anlıyorum fakat onda da tenefüslerde iseğe bağlı çalan şarkı listesini sıralı çaldıramıyorum.  normal mediaplayer nesnesinin stoped durumunu nasıl anlayabilirim? Bununla ilgili tecrübelerinizden faydalanmak isterim. Teşekkürler

Şurada konu ile ilgili örnek bir kod var :
https://stackoverflow.com/questions/4664...ng-stopped

Cemal bey kardeşim öncelikle cevabınız için teşekkür ederim. Buradaki kod tam olrak istediğimi karşılamıyor. Şöyleki zil programında şarkının tamamını çaldır ya da ..... saniyesini çaldır seçeneği var. Genelde de okulda belirli bir süre çalışıyor. Yani seçim yapılan belirlenen bir şarkının uzunluğunu hesaplayıp sona gelince bitti demek problemimi çözmüyor. 

normal mediaplayer nesnes içine 

procedure Tform1.Player1Notify(Sender: TObject);
if (ANFI_CHECK_ONN.Checked=true) and (ComPort1.Connected)and(KNTRL_EDIT.Checked=false) then
   begin
   if  (Player1.Mode = mpStopped) then
      Begin
      if TENEFUS_DURUMU.Caption<>'4' Then
        Begin
        zaman_al:=Now;
        zaman_al:=IncSecond(zaman_al,Trunc(ANFI_SPIN2.Value));
        LABEL_ANFIKAPAT.caption:=FormatDateTime('hh:nn:ss',zaman_al);
       End;
      End
  else if (Player1.Mode = mpPlaying) then
      Begin
      LABEL_ANFIKAPAT.caption:='0';
      End;
   end;

Yukarıdaki kod ile şarkıtının bitiğini/stop ettiğini/durdurulduğunu anlayamıyorken  activex nesesinden olan media player ile stop durumunu anlayabiliyorum. 

Araştırmaya devam bir sonuç çıkarırsam çözümü paylaşırım. Teşekkürler