procedure TMForm.UnzipFile(const ZipFileName, DestinationFolder: string);
var
Zip: TZipFile;
begin
Zip := TZipFile.Create; // use System.Zip
try
Zip.Open(ZipFileName, zmRead); // ZIP 파일 열기 (읽기 전용 모드)
Zip.ExtractAll(DestinationFolder); // 전체 파일 압축 해제
finally
Zip.Free;
end;
end;