compactar um arquivo usando Delphi

[News Brasil]

Boa noite gostaria de poder compactar um arquivo usando Delphi bom ate nessa parte eu ja cheguei gostaria de compactar com senha 

e pode descompactar com senha usando Delphi auguem pode me ajudar agradeço    ????

[BigWings]

13 horas atrás, News Brasil disse:

Boa noite gostaria de poder compactar um arquivo usando Delphi bom ate nessa parte eu ja cheguei gostaria de compactar com senha 

e pode descompactar com senha usando Delphi auguem pode me ajudar agradeço    ????

Tem componentes para isso.

Eu tenho aqui o TZipMaster.

Você disse que já conseguiu compactar, mas não disse como fez, qual componente ou método usou.

[News Brasil]

27 minutos atrás, BigWings disse:

Tem componentes para isso.

Eu tenho aqui o TZipMaster.

Você disse que já conseguiu compactar, mas não disse como fez, qual componente ou método usou.

 

1. procedure TForm1.Button1Click(Sender: TObject);
2.  
3.   var
4.   AFile: string;
5.   LocateFile: string;
6. begin
7.   AFile := 'C:\bruno.txt';
8.   LocateFile := 'C:\bruno.txt'+ FormatDateTime('yyyy-mm-dd', Now) +'.rar';
9.  
10.   winexec(PAnsiChar(AnsiString('"C:\Program Files\WinRAR\WinRAR.exe" -ep1 a '+ LocateFile +' "'+ AFile + '"')), SW_HIDE);

TZipFile.ZipDirectoryContents('C:\edit1.zip', 'C:\sistema\');

agora queria só a parte de coloca senha ! e que não estou conseguindo

Editado 20 Novembro, 2017 por News Brasil

[News Brasil]

TZipMaster eu tenho mais não sei usar !

[BigWings]

27 minutos atrás, News Brasil disse:

1.   winexec(PAnsiChar(AnsiString('"C:\Program Files\WinRAR\WinRAR.exe" -ep1 a '+ LocateFile +' "'+ AFile + '"')), SW_HIDE);

TZipFile.ZipDirectoryContents('C:\edit1.zip', 'C:\sistema\');

agora queria só a parte de coloca senha ! e que não estou conseguindo

Segundo o help do WinRar, basta inserir o modificador -p.

Compactando com senha:

WinRar.exe a -pMinhaSenha meuarquivo.rar meuarquivo.txt

Descompactando com senha:

WinRar.exe e -pMinhaSenha meuarquivo.rar

[News Brasil]

3 minutos atrás, BigWings disse:

Segundo o help do WinRar, basta inserir o modificador -p.

Compactando com senha:

WinRar.exe a -pMinhaSenha meuarquivo.rar meuarquivo.txt

Descompactando com senha:

WinRar.exe e -pMinhaSenha meuarquivo.rar

 

teria como dar um exemplo nesse meu código acima ? 

[News Brasil]

conseguir e pra descompactar 

fiz assim compactou com senha e descompactar?

procedure TForm1.Button1Click(Sender: TObject);
  var
  AFile: string;
  LocateFile: string;
begin
  AFile := 'C:\su\sisetma\bruno.txt';
  LocateFile := 'C:\su\sisetma\bruno.txt'+ FormatDateTime('yyyy-mm-dd', Now) +'.rar';

  winexec(PAnsiChar(AnsiString('"C:\Program Files\WinRAR\WinRAR.exe" -ep1 a -p123456 '+ LocateFile +' "'+ AFile + '"')), SW_HIDE);

[EMBarbosa]

Moderação: Tópico fechado. Continue em: