(Resolvido) Compactar com FilZip

[Eder]

Ola..Pessoal

testei este codigo aqui pra compactar com winzip E funcionou certinho:

procedure TForm1.Button3Click(Sender: TObject);
begin
WinExec(PChar('c:\arquivos de programas\winzip\winzip32.exe' + ' -min -a -r "'+ 'T:\BK\210108.zip' + '" ' + 'C:\TESTE\*.*'),sw_ShowNormal);
end;

Porem como não uso o WinZip e sim o Filzip gostaria de saber se é possível compactar com ele....já que o proprio FilZip é feito em Delphi..

Tentei troca a linha:

c:\arquivos de programas\winzip\winzip32.exe

por esta do Filzip:

C:\Arquivos de programas\Filzip\Filzip.exe

mas o programa pisca e nada acontece...

Grato

[Micheus]

para executar qualquer programa com esta metodologia, primeiro você tem que saber que parâmetros de linha de comando ele aceita, para então preparar a linha a ser executada.

Vá na pasta de instalação do FilZip e abra o arquivo de ajuda. Tem a opção Advanced Features -> Command Line

Boa sorte.

[Eder]

para executar qualquer programa com esta metodologia, primeiro você tem que saber que parâmetros de linha de comando ele aceita, para então preparar a linha a ser executada.

Vá na pasta de instalação do FilZip e abra o arquivo de ajuda. Tem a opção Advanced Features -> Command Line

Oba...Micheus...deu certo.

consegui montar o código pra COMPACTAR e DESCOMPACTAR

Como você mesmo disse a Metodologia é a mesma do Winzip, só muda as Letrinhas -a -rps

Fica assim com FilZip:

Compactar:

procedure TForm1.Button3Click(Sender: TObject);
begin
WinExec(PChar('c:\arquivos de programas\filzip\filzip.exe' + ' -a -rps "'+ 'c:\tio1\bk\220109.zip' + '" ' + 'c:\tio1\*.*'),sw_ShowNormal);
end;

Descompactar

procedure TForm1.Button4Click(Sender: TObject);
begin
WinExec(PChar('c:\arquivos de programas\filzip\filzip.exe' + ' -e -rps "'+ 'c:\tio1\bk\220109.zip' + '" ' + 'c:\tio1\des\'),sw_ShowNormal);
end;

Abaixo colei as dicas do FilZip:

Since Version 1.6, FilZip supports Command Line access. At the moment, you can only add & extract files to archives. Here are the parameters:

Usage: filzip.exe <-command> [-<sw> [-<sw>...]] <archive_name> [<filename>...]

Example: filzip.exe -a -rp test.zip *.txt

<Commands>

-a : Add files

-e : Extract files

<Switches>

Add

r : Add recursive

p : Save path names

f : Save full path info

s : Load filelist from parameter file

Extract

r : restore path names

o : overwrite existing files

u : update older files

Note:

If you want to add a big number of files to an archive, write them into a textfile, one in each line, use the -s switch and run with this file as parameter. Example:

filzip.exe -a -rps test.zip param.txt

valeu..Grato ;)

Editado Janeiro 22, 2008 por Eder