Einzelnen Beitrag anzeigen

Micha88
(Gast)

n/a Beiträge
 
#2

Re: Musik Liste geht nich

  Alt 5. Dez 2009, 21:25
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.
  Mit Zitat antworten Zitat