Fórum [Ajuda] Como por um Gauge no código? #417708

Olá amigos,
Estou precisando mais uma vez da ajuda de vocês.

Bom, estou criando um Backup e Restore... Já encontrei um Tutorial com o código para o componente ZipMaster em:
http://www.activedelphi.com.br/forum/viewtopic.php?t=73357


Para Compactar uso:
Código:


var
i: Integer;
begin
ZipMaster1.FSpecArgs.Clear();
ZipMaster1.ZipFileName := ExtractFilePath(Application.ExeName) + FormatDateTime(dd-mm-yyyy, Date) + .zip;
begin
for I := 0 to OpenDialog1.Files.Count - 1 do
begin
ZipMaster1.FSpecArgs.Add(OpenDialog1.Files[I]);
end;

ZipMaster1.Add;

if ZipMaster1.SuccessCnt >= 1 then
ShowMessage( Backup Realizado com Sucesso+#13+O Arquivo foi salvo na pasta Backup !)
else
ShowMessage(Erro ao Gerar Backup !);
end;
end;


Para descompactar estou usando o código abaixo:

Código:


ZipMaster1.ZipFileName := OpenDialog2.FileName;
ZipMaster1.ExtrBaseDir := ExtractFilePath(Application.ExeName); // pasta para onde os arquivos serão descompactados
ZipMaster1.Extract;
Showmessage(Extração Concluida!);



Preciso da ajuda de vocês para por um Gauge que mostra o progresso do Backup e/ou Restauração, para ficar com uma apresentação melhor.

Alguém pode me dar uma ajuda nessa implementação!

Obrigado!!