leetMP3 player - der kleinste graf. mp3player der welt 35kb

[bigg]

Fällt mir nur grad so auf,
geht auch kürzer und schneller:

Delphi-Quellcode:

Procedure TMain.Create ...
var i: Integer;
var Ext: String;
begin

for i := 1 to ParamCount -1 do
begin if FileExists(ParamStr(i)) then
begin Ext :=  UpperCase(ExtractFileExt(ParamStr(i)));

if (Ext = '.MP3') or ('.M3U') then
AddPlaylist(ParamStr(i));

end;
end;
end;