Discussion :

[sylsi38]

Bonjour,

pour un programme d'installation, j'ai besoin de décompresser des fichiers .zip dans un dossier. Je décompresse les fichiers à l'aide de 7z920.exe mais, comme il n'est pas installé sur ma machine, il me demande de la faire. J'ai pensé aussi utiliser la version portable de 7zip mais là aussi j'ai l'interface d'installation du logiciel.
Pour information, mon programme d'installation en delphi va être exécuté sur le serveur du client. Je ne peux pas installer de fichiers dessus autres que ceux de l'entreprise pour laquelle je bosse.

C:\Documents and Settings\Administrateur\Mes documents\Installation-Application\7 -ZipPortable> 7-ZipPortable e ../Application.zip -y

Je galère sur ce petit problème et je n'ai pas encore fini de coder en delphi pour exécuter la ligne de commande "shellexecute"

Param := path_Application +' a -tZIP '+lzFile+' '+TempDir;
ShellExecute(Handle,'OPEN',Pchar('7Z920.exe'),PChar(Param),nil,SW_SHOW);

Je ne sais pas si le code ci-dessus est correct. Si quelqu'un pouvait me donner son avis du coup, ça m'aiderai beaucoup.

Merci par avance.

[tourlourou]

Si tu codes le programme d'installation, ajoute une lib de décompression : regarde dans les répertoires de Delphi, il doit y en avoir une.

[ShaiLeTroll]

Deux pistes
SW_SHOW passe le en SW_HIDE, si 7Zip le gère
Sinon, étudie les paramètres, il doit exister un mode silencieux

Sinon, ce programme 7z920.exe c'est le setup et non l'executable !
Le programme d'installation Delphi XE2 utilise 7-zip

il existe aussi TIdZLib

[SergioMaster]

si mes souvenirs sont bons c'est 7ZA.exe qui est en mode de commande

Code D3 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
var lzFile, lzParam : String;
begin
//*----------------------------------------------
// COMPRESSION 7-ZIP
lzFile:=repbase+'\TEMP\SEND\BASEM.ZIP';
lzParam:=' a -tZIP '+lzFile+' C:\FICHIERS\TEMP\BASEM.fbk';
ShellExecute(Handle,'OPEN','C:\LALET\Programmes\7ZA.EXE',PChar(lzParam),nil,SW_HIDE);

[Edit] ce code était pour le "zippage" , enfin la philosophie est là , il reste juste a changer les paramètres

[Paul TOTH]

en même temps ça fait longtemps qu'on sais déziper sous Delphi

[ShaiLeTroll]

C'est même standard depuis D7 et Indy pas besoin d'unité externe TIdZLib

Et encore plus standard en XE2 : System.ZLib

Faudrait chercher XP gère les ZIP comme des "Dossiers Compressés" dans l'explorateur Windows,
il doit donc avoir une API lié à FILE_ATTRIBUTE_COMPRESSED

Sinon Win8 nous offrent Compression API Functions