Hey Leute,
Ich bin ja grade dabei einen "Entpacker" zu programmieren. Ich hab es nun so gemacht das man eine .zip öffnen kann und dann können die Inhalte angezeigt werden. Nun wollte ich es so machen das einzelne Dateien gelöscht werden können. Mein
versuch:
Delphi-Quellcode:
procedure TForm2.sBitBtn6Click(Sender: TObject);
var
i : Integer;
begin
with slistview1 do
for i := 0 to Items.Count - 1 do
if Items[i].Selected then
begin
abzipper1.OpenArchive(openarchive);
delepf := items[i].SubItems[0]; // der Pfad z.B C:\blala....
abzipper1.DeleteFiles(delepf);
abzipper1.CloseArchive;
end;
slistview1.Selected.Delete;
end;
end.
Wisst ihr was ich falsch mache?
// das Problem ist das die Datei immer noch vorhanden ist