Hallo,
versuche die Dateien aus einer Zip-Dateien zu entpacken und später, beim "Aufräumen", diese zu löschen.
Benutze dafür Abbrevia 10.6 von TurboPack (GetIt) mit Delphi 10.4:
Delphi-Quellcode:
UnZipper := TAbUnZipper.Create(self);
UnZipper.BaseDirectory := gWorkingDir;
UnZipper.OpenArchive(zipFileName);
TracksElements := UnZipper.Count;
setLength(Tracks, TracksElements);
for TrackCnt := 0 to TracksElements -1
do begin
Tracks[TrackCnt].FileToPlay := gWorkingDir + PathDelim + UnZipper.Items[TrackCnt].FileName;
end;
UnZipper.ExtractFiles('*.*');
UnZipper.CloseArchive;
UnZipper.Free;
Nach den Verwendung der entpackten Dateien möchte ich diese löschen.
Leider können "System.SysUtils.deleteFile" oder "System.Erase" diese Dateien nicht löschen.
Kennt jemand dieses Verhalten oder eventuell einen Workaround?
Danke.