Einzelnen Beitrag anzeigen

-Phantom-

Registriert seit: 26. Nov 2009
Ort: Bockhorst
319 Beiträge
 
Delphi 7 Enterprise
 
#20

Re: Datei in einer zip löschen

  Alt 10. Apr 2010, 18:50
Ich habe es nun auch geschafft die Dateien zulöschen...
Delphi-Quellcode:
 
var
filesource, filedest,datei, d2,filen: String;
i : Integer;
begin
// bei vista öffnen
if (windowsversion = '6.0') and (slabel1.Caption = 'Öffnen') then begin
filesource := openpf;
createdir('C:\Program Files\Ultimate Zip\temp2\');
filen := 'C:\Program Files\Ultimate Zip\temp2\';
filedest := 'C:\Program Files\Ultimate Zip\temp2\'+Extractfilename(openpf);
CopyFile(PChar(fileSource), PChar(fileDest), True);
abzipper1.CloseArchive;
abunzipper1.CloseArchive;
deletefile(openpf);
abunzipper1.FileName := filedest;
abunzipper1.BaseDirectory := Extractfilepath(filedest);
abunzipper1.ExtractFiles('*.*');
abunzipper1.CloseArchive;
abzipper1.CloseArchive;
deletefile(filedest);
for i := 0 to slistview1.Items.Count -1 do
begin
if slistview1.Items[i].Selected then begin
datei := StringReplace(slistview1.Items[i].Caption,'/','\',[rfReplaceAll]);
d2 := filen+Extractfilename(datei);
label2.Caption := d2;
deletefile(d2);
zz2(openpf);
DeleteFile('C:\Program Files\Ultimate Zip\temp2\*.*');
slistview1.Items.Delete(i);
end;
end;
// ist nicht grade Elegant gelöst, aber gelöst
Mathias Jansen
  Mit Zitat antworten Zitat