[Warilaidem]

Добрый день!

Пытаюсь на Delphi XE2 автоматизировать анализ внутренних рабочих отчетов. В .zip-архиве находится файл details.txt, который надо извлечь и в дальнейшем работать. Но .zip-архив остается заблокированным в эксклюзивном режиме после окончания работы следующей функции:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

uses   ZipForge;     function ReadDetails(archivePath : WideString) : WideString; var   archiver : TZipForge;   buffer : String; begin   Result := '';   archiver := TZipForge.Create(nil);   archiver.FileName := archivePath;     try     archiver.OpenArchive(fmOpenRead);     archiver.ExtractToString('details.txt', buffer);     result := UTF8ToUnicodeString(buffer);   finally     archiver.Free();   end; end;

Я пытался исправить ситуацию через TFileStream и флагами fmOpenRead or fmShareDenyNone, но тоже безрезультатно.