ActiveDelphi

[kakarlos]

ola! alguem sabe como faço para que meu programa faça uma verificação em um pasta e se tiver por ex 10 arquivos lah ele compacta os mesmos e adiciona no winrar, e apaga os que forao adicionados

[rafmattos]

eu utilizo o componente zipmaster muito bom, é só vc add os arquivos na stringlist dele e mandar zipar http://www.delphizip.org/

[igormoita]

COMPACTAR-WINZIP

Temp:=ChangeFileExt(Dados.SaveDialog1.FileName,'.zip');

LinhadeComando:='C:\Arquivos de programas\WinZip\WINZIP32.EXE -A "'+Temp+'" "'+Dados.SaveDialog1.FileName+'"';
Try
WinExec(Pchar(LinhadeComando),1);
Except

End;

COMPACTAR-WINRAR

Temp:=ChangeFileExt(Dados.SaveDialog1.FileName,'.rar');
LinhadeComando:='C:\Arquivos de programas\WinRAR\WINRAR.EXE a "'+Temp+'" "'+Dados.SaveDialog1.FileName+'"';
Try
WinExec(Pchar(LinhadeComando),1);
Except

End;


DESCOMPACTAR-WINZIP
Temp:=Dados.Dirlocal+'\TempMBBackRest'; //ORIGEM //DESTINO
LinhadeComando:='C:\Arquivos de programas\WinZip\WINZIP32.EXE -E "'+Dados.OpenDialog2.FileName+'" "'+Temp+'"';
Try
WinExec(Pchar(LinhadeComando),1);
Except

End;
DESCOMPACTAR-WINRAR

SetCurrentDir(Dados.DirLocal);
Temp:='TempMBBackRest\';//essa barra no final eh necessária para indicar a pasta destino
LinhadeComando:='C:\Arquivos de programas\WinRAR\WINRAR.EXE e "'+Dados.OpenDialog2.FileName+'" "'+Temp+'"';
Try
WinExec(Pchar(LinhadeComando),1);
Except

End;


(OBS: para compactar eh necessario ter o WINRAR ou WINZIP instalado)

[kakarlos]

Ok.. so estou tendo dificuldade pra colocar os dados, pois quero uma determinada pasta inteira compactar ...como devo fazer

[igormoita]

[NalDinHuU]

Eu Uso o Componente do Rarlab (Winrar), veja o LINK
_________________
Try
Topic.Resolve;
Finally
Topic.Caption := Topic.Caption + '[RESOLVIDO]';