Also mein bisheriger Code sieht so aus:
Code:
if (ParamCount > 0) and FileExists(ParamStr(1)) then
begin
done:=true;
FileToOpen:=ParamStr(1);
PlayDahFile;
for i := 1 to paramcount do begin
PlayListAktuell.Items.Add(paramstr(i));
end;
end;
Die erste Datei soll abgespielt werden (klappt auch) und alle datein sollen zur PlayListAktuell hinzugefügt werden (klappt nicht nur die erste wird hinzugefügt)