Salut, ça tombe bien, je viens de le faire. Le mieux c'est d'utiliser pkzip dans un commande ShellExecute. Par contre attention pkzip utilise le format de fichier dos (8 caractères). Et il ne faut pas avoir des espaces dans les noms de dossiers.
Ex: ShellExecute(0,nil,'pkzip.exe ',Pchar('Fichier.zip'+' '+'*.*'),nil,SW_SHOWDEFAULT);
ou avec winexec (moins bien...)
nomFic:=RepAppli+'pkzip.exe '+RepAppliData+ExtractFileName(ChangeFileExt(Fic, '.zip'))+' '+RepAppliData+'*.*'; WinExec(PChar(NomFic),SW_SHOW);
|