Hallo,
Ich habe in einer Datei 10 midis (1.mid, 2.mid ...) und starte sie wenn ich auf einen Button klick so:
Delphi-Quellcode:
randomize;
y:=random(9) + 1;
Mediaplayer.FileName := 'midi/' + inttostr(y) + '.mid';
Mediaplayer.Open;
Mediaplayer.Play;
Funktioniert auch, aber ich möchte jetzt, wenn ein midi zu ende ist das ein neues automatisch per zufall gespielt wird, wie mach ich das?
Ferby