So, habs Gelöst, Funktioniert jetzt dann doch:
Delphi-Quellcode:
if button2.Down=true then
begin
mediaplayer1.Stop;
mediaplayer1.Close;
case random (listbox1.Items.Count) of
0:i:=0;
1:i:=1;
2:i:=2;
3:i:=3;
4:i:=4;
5:i:=5;
6:i:=6;
7:i:=7;
8:i:=8;
9:i:=9;
10:i:=10;
11:i:=11;
12:i:=12;
13:i:=13;
14:i:=14;
15:i:=15;
16:i:=16;
17:i:=17;
18:i:=18;
19:i:=19;
20:i:=20;
21:i:=21;
22:i:=22;
23:i:=23;
24:i:=24;
25:i:=25;
26:i:=26;
27:i:=27;
28:i:=28;
29:i:=29;
end;
mediaplayer1.FileName:=listbox1.Items.Strings[i];
mediaplayer1.Open;
mediaplayer1.Play;
end
Wenn ich noch fragen hab, schreib ich sie wieder hier rein!!!