Hier der Code zum Abspielen:
Delphi-Quellcode:
procedure TForm4.Button1Click(Sender: TObject);
var i : integer;
begin
TRY
for i := 0 to listbox1.Count - 1 do
if listbox1.Selected[i] then break;
PlayFile(i);
EXCEPT
showmessage('ERROR: Musiktitle wählen');
END;
end;
***** Wenn ich die Musiktitle über drag und drop einfüge geht das Abspielen*****