Delphi et pkzip

Version imprimable

04/10/2005, 10h36
seb8810

Delphi et pkzip
Bonjour j'essaye désesperement de dézipper une archive via la commande ShellExecute sensée lancé pkzip..

J'ai cherché du coté de la faq mais je n'ai pas trouvé la solution à mon problème

Voici la commande que je lance :
Code:

1 2 3 ShellExecute(0,nil,'C:\Program Files\Borland\Delphi7\Projects\ pr1\PKZIP25.EXE',' -Extract blabla.zip blabla.txt >Resultat.txt',nil,SW_Normal);
la fenêtre dos s'ouvre fugitivement mais blabla.txt n'est pas dézippé et Resultat.txt n'est pas créé

j 'ai aussi essayé de faire passer le path et les options dans un seul string :
Code:

1 2 ShellExecute(0,nil,'C:\Program Files\Borland\Delphi7\Projects\ pr1\PKZIP25.EXE -Extract blabla.zip blabla.txt >Resultat.txt',nil,nil,SW_Normal);
Cette solution semble être plus mauvaise dans le sens ou la fenêtre dos ne s'ouvre pas du tout.

Finnallement en désepsoir de cause, j'ai tenter de passer par la commande WinExec :

Code:

WinExec('C:\Program Files\Borland\Delphi7\Projects\Projet Salaire\PKZIP25.EXE -Extract blabla.zip blabla.txt >Resultat.txt', SW_SHOW);

Cela affiche aussi fugitivement la fenêtre dos sans plus de résultat apparent
04/10/2005, 15h14
eponette

N'y a-t-il pas de composant de compression? C'est plus simple que d'utiliser un programme en Shell.
04/10/2005, 15h23
Lung

Il existe des composants TZip très simple à utiliser.
Regarde sur torry ...
04/10/2005, 16h39
Nono40

Les composants Abrevia aussi. Faciles à installer/utiliser
05/10/2005, 12h09
seb8810
le problème venait de l'espace dans le nom du répertoire programe files ....

Pour les éventuels interessé voici la commande shell qui fonctionne :
Code:

1 2 3 4 ShellExecute(0, nil, PChar('C:\Essais\Pkzip\pkzip25.exe'), PChar('-extract C:\Essais\Fichiers\essai1.zip'), PChar('C:\Essais\Fichiers'), SW_NORMAL);
05/10/2005, 13h53
Pedro
Salut
tu epeux aussi essayer avec un nom de répertoire avec des caractères spéciaux en mettant le nom du répertoire complet entre guillemets...
Code:

1 2 3 ShellExecute(0,nil,'"C:\Program Files\Borland\Delphi7\Projects\ pr1\PKZIP25.EXE" -Extract blabla.zip blabla.txt >Resultat.txt',nil,nil,SW_Normal);