Delphi XE2 버전 이후로 델파이에서 폴더/파일 압축 하고싶을때

 

* Delphi XE2 버전 이후 버전에서만 System.Zip 사용 가능! 이전 버전에서는 상용 컴포넌트(유료)를 사용해야 함

 

예를들어 C:\TEMP 폴더를 C:\TEMP.zip으로 압축하고 싶을때는 다음과 같이 사용!

파일 자체로만 압축은 안되는듯? 조금 번거롭지만 폴더만 압축가능한 것 같다.

 

uses ... , System.Zip   procedure TForm1.Button1Click(Sender: TObject); begin      //TZipFile.ZipDirectoryContents('생성할 압축파일 명을 포함한 경로', '압축 대상 폴더 경로');      TZipFile.zipDirectoryContents('C:\TEMP.zip','C:\TEMP'); end;