Compactar arquivos usando Winzip
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);
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
Curtidas 0
Respostas
José Silva
18/05/2003
Olha eu tenho um programinha com fonte que faz este tipo de compactacao que vc deseja caso lhe enteresse mande-me um email ok?
GOSTEI 0
Jose Luiz
18/05/2003
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
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
GOSTEI 0
Rood_luiz
18/05/2003
Colega,
pode me enviar seu programinha:
rood_luiz@ig.com.br
Obrigado.
pode me enviar seu programinha:
rood_luiz@ig.com.br
Obrigado.
GOSTEI 0
Rood_luiz
18/05/2003
Colega,
pode me enviar seu programinha:
desculpa.
rood_luiz@yahoo.com.br
Obrigado.
pode me enviar seu programinha:
desculpa.
rood_luiz@yahoo.com.br
Obrigado.
GOSTEI 0
Lindb
18/05/2003
Se possivel gostaria de receber i programa de backup.
Obrigado.
barroslindon@aol.com
Obrigado.
barroslindon@aol.com
GOSTEI 0
Arc
18/05/2003
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....
GOSTEI 0