VCLZIP 怎么用啊

一路随云

1. function ZipDir(zipMode{0-连同目录一起压缩，1-压缩指定目录中的所有文件和文件夹}:Integer;ZipControl:TVCLZip;MyZipName,MyZipDir:string):Boolean;
   
2. begin
   
3. {压缩指定目录中的所有文件和文件夹，指定RootDir，否则连同指定目录本身一同压缩}
   
4. Result:=False;
   
5. try
   
6. with zipControl do
   
7. begin
   
8. case zipMode of
   
9. 0:RootDir:='';
   
10. 1:RootDir:=MyZipDir;
    
11. end;
    
12. OverwriteMode:=Always;
    
13. AddDirEntriesOnRecurse:=True;
    
14. RelativePaths:=True;
    
15. //Recurse:=True;
    
16. //RecreateDirs:=True;
    
17. //StorePaths:=True;
    
18. ZipName:=MyZipName;
    
19. FilesList.Add(MyZipDir+'\*.*');
    
20. Zip;
    
21. Result:=True;
    
22. end;
    
23. except
    
24. 
    
25. end;
    
26. end;

复制代码

一路随云

已经自己解决....鱼C怎么没人学DELPHI啊！