Playlist abspielen

[Alexander]

Hi,
mhm.
habe gerade nciht viel Zeit, aber so in etwa:

Delphi-Quellcode:

procedure TForm1.Image9Click(Sender: TObject); 
var 
playeintrag : TListItem; 
begin 
   OpenDialog2.FileName := ''; 
   OpenDialog2.Filter := 'Alle Media-Dateien|*.mp3;*.ogg;*.wma;*.wav|Alle Dateien'; 

   if OpenDialog2.Execute then 
         if BassPlayer1.Open(OpenDialog2.FileName) then 
      begin 
        playeintrag := ListView1.Items.Add; 
        playeintrag.Caption := OpenDialog2.FileName; 
        playeintrag.Subitem.Add('hallo, was soll hier rein?');
// das kommt ins erste Column, für's nächste einfach Zeile kopieren ;-) 
        BassPlayer1.Play; 
      end; 
end;