Wenn mp3 zuende ist programm schließen

[Sharky]

Hai SkyLord,

hast Du dir schon die Hilfe zu OnNotify des TMediaPlayers angesehen?
Dort gibt es auch ein ganz gutes Beispiel.

Hier mal eine Minilösung für dein Problem:

Delphi-Quellcode:

procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
 Close;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 MediaPlayer1.Play;
 MediaPlayer1.Notify := True;
end;