Vclzip显示压缩进度

 

progressbar1.Max:=myzip.ZipSize;


procedure TForm1.myzipFilePercentDone(Sender: TObject; Percent: Integer);
begin

progressbar1.Position:=percent;
end;

procedure TForm1.myzipTotalPercentDone(Sender: TObject; Percent: Integer);
begin
progressbar2.Position:=percent;
end;