[descompactar um arquivo usando Delphi]

sim mais eu quero descompactar com senha !

 

[descompactar um arquivo usando Delphi]

conseguir com ajuda de umigo aqui compactar gostaria de saber como descompactar

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

winexec(PAnsiChar(AnsiString(‘”C:\Program Files\WinRAR\WinRAR.exe” -ep1 a -p123456 ‘+ LocateFile +’ “‘+ AFile + ‘”‘)), SW_HIDE);

 

[compactar um arquivo usando Delphi]

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);

[compactar um arquivo usando Delphi]

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 ? 

[compactar um arquivo usando Delphi]

TZipMaster eu tenho mais não sei usar !

[compactar um arquivo usando Delphi]

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

[compactar um arquivo usando Delphi]

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    ????

[Zipar xml no Delphi 2010 Bloco X]

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    ????