Wenn Lied fertig ist neues Abspielen.

[ferby]

Hallo,

Ich habe nochmal eine ähnliche Frage, diesmal verzichte ich aber aus bestimmten Gründen auf den TMediaPlayer.

Ich Spiele Midis so ab und stoppe sie.

Delphi-Quellcode:

procedure TForm1.PlayClick(Sender: TObject);
begin
  MCISendString(PChar('Play ' + Edit_FileName.Text), nil, 0, 0);
end;

procedure TForm1.StopClick(Sender: TObject);
begin
  MCISendString(PChar('Stop ' + Edit_FileName.Text), nil, 0, 0);
end;

Das funktioniert super.

Mein Problem:
Ich möchte, wenn das Midi zu Ende ist, das die Prozedur PlayClick ausgelöst wird.
Edit_FileName.Text kann sich in der Zwischenzeit geändert haben.
Sprich wenn das aktuelle Midi fertig ist, soll das Midi abgespielt werden,
das jetzt in Edit_FileName.Text drin steht.
Wie mach ich das, ich nehme an wieder mit Notify, ich habe aber keine Ahnung wie ich das genauer mache.....



Und noch eine zweite Frage, muss ich die prozedur StopClick auch dann auslösen,
wenn das Midi zu ende ist, oder nicht?