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;
procedure TForm1.myzipFilePercentDone(Sender: TObject; Percent: Integer);
begin
progressbar1.Position:=percent;
end;
procedure TForm1.myzipTotalPercentDone(Sender: TObject; Percent: Integer);
begin
progressbar2.Position:=percent;
end;