mp3 starten, stoppen und Ende erkennen

[Hador]

Ich habe mal in meinen alten Player reingeschaut.
Dort habe ich statt

Delphi-Quellcode:

  with Sender as TMediaPlayer do 
  begin 
    case Mode of 
      mpStopped: begin 
                   MediaForm.Hide; 
                   MPlayer.Close; 
                 end; 
    end; 
  end;

sinngemäß folgendes verwendet:

Delphi-Quellcode:

if (MPlayer.Position >= MPlayer.Length) then
begin 
  MediaForm.Hide; 
  MPlayer.Close; 
end;