News Brasil

sim mais eu quero descompactar com senha !

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

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

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

TZipMaster eu tenho mais não sei usar !

procedure TForm1.Button1Click(Sender: TObject); var AFile: string; LocateFile: string; begin AFile := 'C:\bruno.txt'; LocateFile := 'C:\bruno.txt'+ FormatDateTime('yyyy-mm-dd', Now) +'.rar'; 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

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

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