ALs was ist "a" deklariert?
Ansonsten würde ich es so machen:
Delphi-Quellcode:
// UNGETESTET, einfach aus dem Gedächtnis aufgeschrieben
{ Vorgang:
1.StringListe erstellen
2. CheckListBox durch Schleife jagen, "checked"-einträge in StringList aufnehmen
3. am ende StringListe als m3u speichern und executen
}
var
sl: TStringList;
i: Integer;
begin
sl := TStringList.Create;
try
for i := 0 to CheckListBox1.Items.Count - 1 do
begin
if (CheckListBox2.Checked[i] = true)
begin
sl.Add(CheckListBox2.Items[i]);
end;
end;
finally
sl.SaveToFile('C:\Liste.m3u');
ShellExecute(Application.Handle 'open', PChar('C:\Liste.m3u'), Nil, Nil, SW_NORMAL);
sl.Free;
end;
end;
Ich der ShellExecute-Anweisung gibt es irgentwo eine UNSCHÖNHEIT.
Habe mal was darüber gelesen, weis es aber nicht mehr.