Compactar arquivos usando Winzip

18/05/2003

1

Oi pessoal,
estou tentando construir um programinha para fazer backup usando Winzip, mas não estou conseguindo, por isso peço ajuda.
Por favor o que esta errado ? se não for desta forma e alguém puder dar um exemplo. eu agradeço.
uso Delphi 5 Tabelas Paradox

Seguinte:

Coloquei no Form um Edit para ser a Origem (onde o usuario digitará o caminho), um outro Edit para ser o Destino (onde é definido A:\Backup.Zip), um Save dialog, um BitBtn com seguinte código:

Begin
If not SaveDialog.Execute Then Exit;
WinExec(PChar(´C:\Arquivos de Programas\WinZip\WinZip32 -min -a -r ´´+EditOrigem.Text+´´ ´
+´´´+EditDestino.Text+´´´),1);


Responder

Posts

18/05/2003

José Silva

Olha eu tenho um programinha com fonte que faz este tipo de compactacao que vc deseja caso lhe enteresse mande-me um email ok?


Responder

18/05/2003

Jose Luiz

colega..

uso assim e funciona beleza!!

procedure TForm1.btnBackupClick(Sender: TObject);
begin
If not SaveDialog.Execute Then Exit;
WinExec(PChar(´C:\Arquivos de Programas\WinZip\WinZip32 -min -a -r ´´+SaveDialog.FileName+´´ ´
+´´´+Label1.Caption+´´´),1);
end;

procedure TForm1.btnRestoreClick(Sender: TObject);
begin
If not OpenDialog.Execute Then Exit;
WinExec(PChar(´C:\Arquivos de Programas\WinZip\WinZip32 -min -e ´´+OpenDialog.FileName+´´ ´
+´´´+Label1.Caption+´´´),1);
end;


Qualquer coisa..

medeiros@pontenet.com.br

Jose Luiz


Responder

18/05/2003

Rood_luiz

Colega,

pode me enviar seu programinha:
rood_luiz@ig.com.br

Obrigado.


Responder

18/05/2003

Rood_luiz

Colega,

pode me enviar seu programinha:

desculpa.

rood_luiz@yahoo.com.br

Obrigado.


Responder

19/05/2003

Lindb

Se possivel gostaria de receber i programa de backup.

Obrigado.


barroslindon@aol.com


Responder

19/05/2003

Arc

Eu estava acostumado a usar a rotina igual a do José Luiz, o unico problema é que eu nunca consegui detectar o momento em que o winzip termina a compactação, para exibir uma mensagem de conclusão do backup....


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira