Musik Liste geht nich

[Micha88]

Als erstes oben in die USES ShellAPI.

Sieht dann so aus:

Delphi-Quellcode:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, CheckLst, ShellAPI;

Du musst dir den COde auch erstmal ansehen, bevor du blind herkopierst

Dann:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var // VAR hat gefehlt!
sl: TStringList;
i: Integer;
begin
sl := TStringList.Create;
try
for i := 0 to CheckListBox1.Items.Count - 1 do
  begin
   if (CheckListBox1.Checked[i] = true) then
    sl.Add(CheckListBox1.Items[i]);
  end;
finally
  sl.SaveToFile('C:\Liste.m3u');
  ShellExecute(Application. 'open', PChar('C:\Liste.m3u'), Nil, Nil, SW_NORMAL);
  sl.Free;
end;