[Delphi] ZipMaster Progress 연동

ZipMaster "onProgress" 이벤트에 처리 procedure TMainform.ZipMaster1Progress(Sender: TObject; details: TZMProgressDetails); begin case detauks.Order of TotalSize2Process: // 총 크기 begin lTotalSize.Caption := ' Size : ' + IntToStr((details.TotalSize Div 1024)) + ' Kb'; with ProgressBar1 do // 개별 파일별 처리율 begin Position := 1; MAX := 100; end; with ProgressBar2 do // 전체 압축 처리율 begin MAX := 100; end; end; TotalFiles2Process: // 총 파일 개수 begin lTotlaCount.Caption := IntToStr(details.TotalCount) + ' files'; end...

원문링크 : [Delphi] ZipMaster Progress 연동