Wenn mp3 zuende ist programm schließen

[SkyLord]

Hallo.
Ich suche einen BEfehl den man in einen timer einfügt und bei dem sich nachdem eine mp3 (die auf dem mediaplayer von delphi5 läuft) abgelaufen ist das Programm selbstständig schließt.

Danke

[Mirilin]

Link
Hier wird eine Loopfunktion hergestellt.
Anstelle vom Neustarten, könntest du ja reintheoretisch beenden...

[SkyLord]

Sorry, aber irgendwie bringt mich das nicht so richtig weiter.
Du musst wissen, dass ich noch nicht allzu fit in delphi5 bin.
Wäre echt nett von dir (oder jemand anderem) wenn ihr mior den kompletten Befehl hinschreiben würdet.

Vielen vielen Dank

[SkyLord]

Hallo?
Weiß da wirklich keiner ne bessere Antwort.
Das ist mir echt wichtig, weil ich das für ein Referat im Schul-Unterricht brauchee.
Danke nochmal

[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;