Código
...a seguir os parâmetros de linha de comando do winzip, incluse para colocar senha...
:parametros uzados na linha de comando do WinZip
-a (adiciona arquivos)
-r (incluir sub-diretorios)
-d (deleta os arquivos após criar a cópia)
-i (adiciona somente os arquivos alterados)
-u (atualiza os arquivos)
-s<senha> (usa uma senha para zipar e des-zipar)
-e (extrai os arquivos no .ZIP)
-d (restaura e cria a árvores de sub-diretorios que foi criada no .ZIP com -r)
-min (executa em modo minimizado)
Com a senha "teste" ficaria assim:
WinExec(PChar('C:Arquivos de ProgramasWinZipWinZip32 -min -a -r -steste "'+ArquivoDestino+'" '+'"'+ArquivoOrigem+'"'),1);
ArquivoDestino e ArquivoOrigem são os paths respectivos.
By Guela: www.sitiodoaguilar.v10.com.br
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009