^^Sorry, war net mehr on
Habs jetzt so gemacht:
Code:
procedure TForm1.Button5Click(Sender: TObject);
var I : Integer;
b : string;
begin
for I:=Listbox1.Items.Count-1 downto 0 do
begin
if Listbox1.Selected[I] then
b := ListBox1.Items[I];
DeleteFile(b);
end;
end;
Und nach ausführlichen Tests in meinem Testlabor klappte es dann auch.
Weiss einer von euch, wie ich die markierten Einträge dann auch aus der Liste entferne?