Zipmaster e ProgressBar

Question

Ol� pessoal!!!Ser� que alguem saberia me dizer como eu fa�o para mostrar o progresso do meu arquivos ao serem zipados?Eu vi que nos demos do ZIPMASTER tem uma maneira de fazer isto, por�m eu num enten...

Gandalf.nho · Answer

Vc deve usar o evento OnProgress do componente para isso. Aqui tem um exemplo dum programa meu de backup (as vari�veis s�o ou do pr�prio evento ou declaradas externamente ao evento (no meu caso) :

case ProgrType of
    TotalSize2Process:
    begin
      vPosicao := 1;
      ProgressBar1.Max := FileSize;
    end;
    NewFile:
    begin
      StatusBar1.SimpleText := FileName;
      ProgressBar1.Position := ProgressBar1.Position + vPosicao;
      vPosicao := FileSize;
    end;
    EndOfBatch:
    begin
      StatusBar1.SimpleText := ��;
      ProgressBar1.Position := 0;
    end;
  end;

Espero que possa ajudar

F�rum Zipmaster e ProgressBar #297607