Compactar arquivos usando Winzip
18/05/2003
0
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);
Clenio
Posts
18/05/2003
José Silva
18/05/2003
Jose Luiz
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
18/05/2003
Rood_luiz
pode me enviar seu programinha:
rood_luiz@ig.com.br
Obrigado.
18/05/2003
Rood_luiz
pode me enviar seu programinha:
desculpa.
rood_luiz@yahoo.com.br
Obrigado.
19/05/2003
Lindb
Obrigado.
barroslindon@aol.com
19/05/2003
Arc
Clique aqui para fazer login e interagir na Comunidade :)