处理文件 / 归档

uses System.SysUtils, System.Zip;

begin
  try
    TZipFile.ExtractZipFile(
      'data.zip''tmp');
  except
    on E: Exception do
      WriteLn(E.Message);
  end;
end.