Código
Complementando a excelente dica do nosso amigo Thiago Porto, postada em 14/07/03 às 09:52:56 e que em muito me ajudou, eu passo 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 Programas\\\\WinZip\\\\WinZip32 -min -a -r -steste "'+ArquivoDestino+'" '+'"'+ArquivoOrigem+'"'),1);
ArquivoDestino e ArquivoOrigem são os paths respectivos.
Veleu Thiago, parabéns pela dica original.
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009