Genau darum ging es mir. Der Pfad sollte zwar bekannt sein, aber nicht aufgelistet werden. Ich meine wie sieht denn das aus: C:\Dokumente und Einstellungen\.......und dann irgend wann mal der Dateiname, der letzenendlich nicht mehr angezeigt werden kann, weil der Quatsch davor schon fast zwei Zeilen einnimmt.
[Edit:] Für allen den es interessiert, gibt's hier die Lösung:
Delphi-Quellcode:
procedure TForm1.DeinButtonClick(Sender: TObject);
var i: Integer;
begin
OpenDialog1.Options := OpenDialog1.Options + [ofAllowMultiSelect];
if Opendialog1.Execute then
begin
if ListBox1.Count <= -1 then
begin
for i := 0 to OpenDialog1.Files.Count - 1 do
ListBox1.Items.Add(ExtractFileName(OpenDialog1.Files[i]));
ListBox1.ItemIndex := 0;
//Der Rest......Eure Events (Autoplay, Replay, etc.)
end;
end;