Discussion :

[seb8810]

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 :

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

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 :

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

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 :

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

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

[eponette]

N'y a-t-il pas de composant de compression? C'est plus simple que d'utiliser un programme en Shell.

[Lung]

Il existe des composants TZip très simple à utiliser.
Regarde sur torry ...

[Nono40]

Les composants Abrevia aussi. Faciles à installer/utiliser

[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 :

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

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

[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 :

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

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