Bonjour !

Je voudrais le corps d'une procédure dont l'entête serait :

procedure execute_batch (Batch_File: TFilename ; Visible : Boolean);

je voudrais que cette procédure éxécute un fichier batch et attende la fin de son exécution, ainsi que l'on puisse préciser à travers la propriété visible si sa fenêtre est visible ou non.

Merci.

SISI231

Salut,

en cherchant un peut tu aurais pu trouver la solution par toi même

Regarde cette source ... elle contient tout ce que tu cherches.

 
@+
Cirec

---

Cela permet de lancer des commandes depuis CMD et non de lancer des BATCH !

Je ne veux pas les ouvrir avec Shellexecute car cela n'attend pas la fin de l'exécution des Batch, ça doit être un truc avec CreateProcess mais je ne sais pas avec quel programme s'ouvrent les programmes BATCH !...

SISI231

Non regarde bien la source elle fait exactement ce que tu demandes

tu peux :
Lancer n'importe quel fichier (Batch y compris)
en attendre la fin ou non et voir la fenêtre dos ou non

en suite tu peux aussi par cette méthode utiliser des fichiers .CMD à la place de .BAT
Les Fichiers .CMD étant des .BAT plus évolués ... donc plus de possibilités et flexibilités (Ex Ajouter/Modifier/Supprimer une entré dans le registre)

 
@+
Cirec

---

Je peux essayer avec :

ShellExecute(Handle, Nil, 'CMD' ,
'/k "start /wait C:/Program Files/Program'Action/SmartCopy/Commandes.bat"', Nil ,SW_HIDE);

pour lancer mon bat mais s'il ya des espaces comme dans Program Files ça ne marchera pas, s'il te plaît donne-moi un exemple !

SISI231

Bon juste avant de me lancer dans testes une petite question :

ça ne serait pas une erreur ça :
C:/Program Files/Program'Action/SmartCopy/Commandes.bat
ça ne serait pas :
C:/Program Files/Program/Action/SmartCopy/Commandes.bat

 
@+
Cirec

---

Non ce n'est pas une erreur

SISI231

oui euh dans mon programme j'ai bien sûr mis deux apostrophes excuse moi ...

SISI231

pour être clair :

ShellExecute(Handle, Nil, 'CMD' ,
'/k "start /wait C:/Program Files/Program''Action/SmartCopy/Commandes.bat"', Nil ,SW_HIDE);

SISI231

Voilà :

ShellExecute(Handle, Nil, 'CMD' , '/k "C:/Program Files/Program'Action/SmartCopy/Commandes.bat"', Nil ,SW_HIDE);

Avec une seule apostrophe

Start et /Wait ne sont pas utiles ici et faisaient planter la commande

Le comportement est exactement le même
c'est le switch /k qui détermine si on attend ou non

@+
Cirec

---