在Delphi中,我想对指定目录中的文件进行压缩,请问该如何写,以前没有接触过,请各位大哥给予指点,最好附上源代码。谢谢!!