Tester la présence d'un mot de passe sur un fichier 7Zip
Bonjour,
Je désire tester la présence d'un mot de passe avant la décompression d'un fichier .ZIP
J'utilise sous Delphi 7 le composant SevenZip. Comment faire ?
Traitement d'un fichier extrait du code :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
// =========================
Procedure Traite_7Z;
Var
I : Integer;
Begin
Try
//sevenzip1.Files.Clear;
SendMessage(ProgressBar2.Handle, PBM_SETBARCOLOR, 0,clAqua);// Bleu
sevenzip1.SZFileName:=FICHIER_ZIP;
// -----------------
INFO:='Je décompacte '+ FICHIER_ZIP+' dans '+REP;
Liste_Des_CAB_ZIP_RAR_DECOMP.Items.Add(INFO);
// select répertoire de destination
sevenzip1.ExtrBaseDir := REP;
// Ecraser les fichiers existants lors de l'extraction ?
sevenzip1.ExtractOptions := sevenzip1.ExtractOptions + [ExtractOverwrite];
sevenzip1.Files.Clear;
i := sevenzip1.Extract;
Finally
//Showmessage('fin 7z');
End;
End;
// ========================= |
D'avance merci
