Inhalt von AudioCD in ListBox laden und abspielen

[Sharky]

Wenn ich das richtig verstehe möchtest Du mit dem Opendialog eine Datei auswählen und danach in einer FilelistBox alle .CDA des Verzeichnisses in einer anzeigen?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
 if (OpenDialog1.Execute) then
  begin
   FileListBox1.Mask := '*.cda';
   FileListBox1.Directory := ExtractFilePath (OpenDialog1.FileName);
  end;
end;