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;