Datei suchen + löschen

[PierreB]

Vielleicht geht es so: (Bin mir aber net sicher und kanns grad net austesten)

Also du markierst einen Listbox-Eintrag und klickst dann auf nen Button:

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
  test : String;
begin
  If ( ListBox1.ItemIndex > -1 ) then
  begin
      test := ListBox1.Items.Objects[ ListBox1.ItemIndex ];
      DeleteFile(test);
  end;
end;

Weiß aber net obs geht....