Datei in einer zip löschen

[-Phantom-]

das mit dem Ausführen hab ich nun hinbekommen

Delphi-Quellcode:

var
runfile : String;
i : Integer;
begin
for i := 0 to slistview1.Items.Count -1 do
begin
if slistview1.Items[i].Selected then
begin
abunzipper1.FileName := openpf;
abunzipper1.BaseDirectory := extractfilepath(openpf);
runfile := extractfilepath(openpf)+slistview1.Items[i].Caption;
abunzipper1.ExtractFiles(runfile);
abunzipper1.OpenArchive(openpf);
shellExecute(0,
        Nil,
        PChar(runfile),
        Pchar(''),
        Pchar('C:\StartDir'),
        SW_NORMAL);
        label2.Caption := runfile;
        end;
end;
end;