Delphi 有很多很好的例子，供大家参考。
已自动扫描归档包内目录结构与文件清单
源码与文本文档支持点击「在线阅读」，二进制/媒体文件请下载压缩包后使用
1
FILE
unit1.pas
559 B
包内组件
2
FILE
project1.~dpr
188 B
包内组件
3
FILE
project1.cfg
386 B
包内组件
4
FILE
project1.dpr
188 B
包内组件
5
FILE
unit1.dfm
867 B
包内组件
6
FILE
project1.dof
1.1 KB
包内组件
7
FILE
unit1.~dfm
803 B
包内组件
8
FILE
unit1.dcu
3.6 KB
包内组件
9
FILE
project1.res
876 B
包内组件
10
FILE
unit1.~pas
536 B
包内组件
11
FILE
unit1.pas (子目录 #2)
690 B
包内组件
12
FILE
project1.~dpr (子目录 #2)
188 B
包内组件