[opel431]

Из того что есть, не видно:
1. Создается ли вначале файл - ZipFile := TZipFile.Create
2. Открывается ли он для записи - ZipFile.Open('опачки.zip', TZipMode.zmWrite);

Для чего такие сложности - ExtractFileNameW, наверное своя функция? С D2009 string, это юникод.

[novashdima]

Создается ли вначале файл - ZipFile := TZipFile.Create »

Когда прочитал ваше сообщение как ошпарило, ведь действительно ZipFile=nil

Открывается ли он для записи - ZipFile.Open('опачки.zip', TZipMode.zmWrite); »

Вот я и не знал, что его надо так открывать, в документации Embarcadero только описание объектов, а как применять не показано.

Для чего такие сложности - ExtractFileNameW, наверное своя функция? С D2009 string, это юникод. »

Я честно говоря не помню, под какой версией начинал писать эту прогу, скорее всего 2010, но знаю про стандартную фунцкию, но почему-то не применил ее, сейчас переправлю на стандартную. (Прога писалась год назад, сейчас она мне понадобилась, решил доработать и исправил несколько ошибок и говнокод, удивляюсь, как я мог такое написать).

Сейчас при попытка ZipFile.Add возникает такая ошибка:
---------------------------
Support for compression method not registered: PPMd version I, Rev 1.
---------------------------
И так с любым методом.

[opel431]

Support for compression method not registered: PPMd version I, Rev 1. »

uses System.Zip

[novashdima]

uses System.Zip »

есть такое, если бы не подключил, то мне компилятор написал бы, TZipFile - undeclared identifier

[opel431]

есть такое »

Я, не к тому написал, чтобы вы подключили, а к тому, что в модуле, всегда можно посмотреть код реализации.

[novashdima]

всегда можно посмотреть код реализации »

В данный момент изучаю, посмотрел половину модуля, увидел, что открываю правильно, потом нашел участок кода с извлечением:

Код:

class procedure TZipFile.ExtractZipFile(ZipFileName: string; Path: string);
var
  LZip: TZipFile;
begin
  LZip := TZipFile.Create;
  try
    LZip.Open(ZipFileName, zmRead);
    LZip.ExtractAll(Path);
    LZip.Close;
  finally
    LZip.Free;
  end;
end;

То есть при извлечении делать Open не надо получается?
И вроде нашел код, в результате которого у меня вылетает ошибка в проге:

Код:

if not FCompressionHandler.ContainsKey(Compression) then
    raise EZipException.CreateResFmt(@SZipNotSupported, [
      TZipCompressionToString(Compression) ]);