Compactar com winzip

Firebird

27/02/2003

Estou tentando zipar um arquivo através do Delphi.

Assim funciona beleza:
VArquivoBackup := ´-a -p c:\PastaUm\copia.zip ´C:\projeto\arquivo.txt´´;
Shellexecute(Handle, ´Open´, ´winzip32´,Pchar(VArquivoBackup),´´,0);

Assim não funciona:
VArquivoBackup := ´-a -p c:\Pasta Um\copia.zip ´C:\projeto\arquivo.txt´´;
Shellexecute(Handle, ´Open´, ´winzip32´,Pchar(VArquivoBackup),´´,0);

Alguém pode me ajudar?

Obs.: todas as pastas utilizadas existem no micro. O problema ocorre quando utilizao um diretório com dois nomes.

Obrigado


Anonymous

Anonymous

Curtidas 0

Respostas

Chnet1

Chnet1

27/02/2003

Tente utilizar desta forma.
WinExec(PChar(´C:\Arquivos de Programas\WinZip\WinZip32
-a -r ´C:\DESTINO\DADOS.ZIP´ ´
+´´´+´C:\ORIGEM\DADOS.DOC´+´´´),1);


GOSTEI 0
POSTAR