Delphi-Quellcode:
procedure TFMainForm.FormCreate(Sender: TObject);
var n : integer;
begin
if (paramcount > 0) then
begin
for n := 1 to paramcount-1 do
begin
if FileExists(paramstr(n)) then
Playlist.items.Add(paramstr(n));
end;
Play1; //Sofort abspielen
end;
end;
Das wäre zumindest mein Vorschlag (siehe 1. Zeile und 6. Zeile).
Kannst du überprüfen, ob es daran liegt, dass die Dateien nicht in die Playlist aufgenommen werden, oder dass sie bloß nicht abgespielt werden?
Also ich mein: Bist du dir sicher, dass es an der ParamStr-Sache liegt?
Es ist unmöglich, witzig zu sein ohne ein bisschen Bosheit. Die Bosheit eines guten Witzes ist der Widerhaken, der ihn haften lässt. - Georg Christoph Lichtenberg