(Resolvido) Esperar winrar executar

[robinhocne]

Faço um backup pelo winrar e queria que o sistema só apresentasse a mensagem quando ele terminar de processar:

como posso fazer ?

esse é o meu codigo:

 Empresa := copy(FrmPrincipal.PnEmpresa.Caption,1,3);
   if DirectoryExists(TxtSalvar.Text) then
    begin

      dtmIza.dbaIza.Connected  := False;
      DtmEmp.DbaEmp.Connected  := False;

      Banco   := 'C:\IzaCfc\Bancos';

      Copia(Banco,'C:\IzaCfc\Backup');

      Banco := 'C:\IzaCfc\Backup';

      Data := Date;
      Nome := 'BK'+Empresa+'-'+ FormatDateTime('dd-mm-yy', Data);
      Caminho := ChangeFileExt(TxtSalvar.Text+'\'+Nome,'.rar');


      if FileExists('C:\IzaCfc\Backup\' + Nome + '.rar') then
        begin
          DeleteFile('C:\IzaCfc\Backup\' + Nome + '.rar');
        end;


      if not DirectoryExists('C:\Program Files (x86)\WinRAR\') then
        begin
          if not DirectoryExists('C:\Program Files\WinRAR\') then
            begin
               ShowMessage('WinRAR não localizado !');
               exit;
            end
            else
            begin
              LinhadeComando :='C:\Program Files\WinRAR\WINRAR.EXE a "'+Caminho+'" "'+Banco+'"';
            end;
        end
        else
        begin
          LinhadeComando :='C:\Program Files (x86)\WinRAR\WINRAR.EXE a "'+Caminho+'" "'+Banco+'"';
        end;

        try
          WinExec(Pchar(LinhadeComando),sw_hide);
          ShowMessage('Backup Gerado com Sucesso!');
          dtmIza.dbaIza.Connected  := True;
          DtmEmp.DbaEmp.Connected  := true;
          close;
        except
          ShowMessage('Erro ao gerar Backup!');
        end;


    end
    else
    begin
      Showmessage('Diretório Inexistente!' );
    end;

[Jhonas]

exemplo

http://www.planetadelphi.com.br/dica/6619/executar-aplicativo-e-esperar-sua-finalizacao

abraço

[robinhocne]

não deu certo, pois quando passo o parametro do winrar

C:\Program Files\WinRAR\WINRAR.EXE a "C:\BK001-06-09-13.rar'" "'C:\IzaCfc\Bancos'"

ele dá erro informando que o windows não pode encontrar esse caminho informado acima...

coloquei assim para executar a função:

WinExec(Pchar(ExecutarEEsperar(LinhadeComando)),sw_hide);

[lucke]

Olá!

Achei isto:

(Executar um programa e aguardar sua finalização antes de continuar) http://www.tecnobyte.com.br/dica4.html#dica76

Flws!

[robinhocne]

nem executou o winrar....

[Jhonas]

use o componente TBackup para fazer os backups de seu sistema ... bem pratico e util

http://www.planetadelphi.com.br/delphi/exemplos/completos/00004406.rar

abraço

[robinhocne]

Jhonas, muito top, gostei desse componente, deu tudo certo, segui o exemplo, modifiquei do meu gosto...e ficou show de bola.

[Helton Garrido]

Bom dia,

Meu amigo estou tentando desenvolver um Backup WinRAR mas sem sucesso teria como você me ajudar pode ser com este mesmo código que você desenvolveu sendo que não consegui aplicá-lo. ti.garrido@live.com