delphi 获取zip压缩的文件名

Delphi是一种编程语言，在该语言中可以使用TZipFile类来操作zip压缩文件。要获取zip压缩文件中的文件名，我们可以使用以下代码：

uses
  System.Zip;

var
  ZipFile: TZipFile;
  FileName: string;
  ZipFileName: string;
begin
  ZipFileName := 'C:\path\to\file.zip'; // 压缩文件的完整路径

  // 创建TZipFile实例
  ZipFile := TZipFile.Create;

  try
    // 打开zip压缩文件
    ZipFile.Open(ZipFileName, zmRead);

    // 遍历压缩文件中的文件
    for FileName in ZipFile.FileNames do
    begin
      // 输出每个文件的文件名
      Writeln(FileName);
    end;
  finally
    // 关闭zip压缩文件并释放资源
    ZipFile.Close;
    ZipFile.Free;
  end;
end.

上述代码使用TZipFile类中的Open方法打开zip压缩文件，并使用FileNames属性获取压缩文件中的文件名列表。然后使用循环遍历每个文件名，并输出至控制台。

如果要获取文件名后进行其他处理，可以根据需要修改代码。