Fichier batch et shellexecute

Bonjour,
Dans un fichier .bat j'ai ça:

Code:

---

1 2 3 4 5

@echo off PING MACHINE -n 2 -w 3000 2>NUL | FIND "TTL=" >NUL IF ERRORLEVEL 1 (ECHO Machine introuvable) pause

---

Maintenant, je souhaite executer ceci en Delphi, sans utiliser mon fichier batch.
Donc, j'ai quelque chose du genre:

Code:

---

1 2	shellexecute(0,nil,'cmd.exe',PChar('/k ping '+edit1.Text+'-n 2 -w 3000 2>NUL | FIND "TTL=" >NUL IF ERRORLEVEL 1 (ECHO Machine introuvable'),'c:\',SW_SHOW);

---

Mais, ceci ne marche pas...

Merci pour toute aide. :roll:

crée ton fichier batch avec votre prog puis execute le avec shellexecut
par example

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

procedure Tform.action; var t:TListstring; begin t:=tstringlist.creat; t.clear; t.add('@echo off PING MACHINE -n 2 -w 3000 2>NUL | FIND "TTL=" >NUL IF ERRORLEVEL 1 (ECHO Machine introuvable) pause' t.savetofile('c:\batch.bat'); t.free; shelexecute(0,nil,'c:\batch.bat','',1);   end;

---

Autremment dit, comment executer plusieurs commandes DOS dans une seule fenêtre, sans répéter le "shellexecute"?

insér les dans un seul fichier batch, j'ai dit une bétise,non? 8O

Merci beaucoup Edam, ça maaaaarche!!!
J'ai eu ton message concernant les Majuscules, mais les requettes c'est pas mon dada, alors, ça marche, c'est bon...

Merci encore! :D :bravo: :chin: :haha:

si ton objectif est de faire des pings avec delphi, pourquoi ne pas utiliser directement la dll icmp.dll ? je crois avoir vu des exemples d'utilisation de celle ci dans le forum ou dans la FAQ. :wink:

non edam tu n'a pas dis de bétises (techniquement) mais kikica a dit :

Citation:

---

Envoyé par kikica

Maintenant, je souhaite executer ceci en Delphi, sans utiliser mon fichier batch.

---

va comprendre.... :?:

Voici mon côde:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

var t: TStringList; begin t:=tstringlist.create; t.clear; t.add('@echo off'); t.add('PING '+edit1.Text+' -n 1 -w 3000 2>NUL | FIND "TTL=" >NUL'); t.add('IF ERRORLEVEL 0 (ECHO OK)'); t.add('IF ERRORLEVEL 1 (ECHO Machine introuvable)'); t.add('pause'); t.savetofile('c:\batch.bat'); t.free; shellexecute(0,nil,'cmd.exe',PChar('/k batch.bat'),'c:\',SW_show);

---

Le but était de pouvoir modifier le nom de la machine via edit1.
Maintenant je souhaite à la place de "ECHO OK" voir mon Shape1 modifier sa couleur: Shape1.color:=clblue;

Une idée? Merci.

ce serait plus facile de faire comme as dis evarisnea :

Citation:

---

Envoyé par evarisnea

si ton objectif est de faire des pings avec delphi, pourquoi ne pas utiliser directement la dll icmp.dll ? je crois avoir vu des exemples d'utilisation de celle ci dans le forum ou dans la FAQ. :wink:

---

plutôt que d'essayer de récupérer des valeurs retournées par un batch...

Bonjour,

Pour transférer un résultat de Batch au programme qui l'a lancé, tu peux utiliser différentes solutions comme comme :

• - avant de lancer le batch effacer un fichier de communication,
  - écrire le résultat "OK"/"Erreur"dans le fichier de communication ( ECHO xxx > C:/batchresult.txt>)
  - attendre dans le main que le fichier soit créé et le lire dans le batch.

ou bien :

• - lancer à la fin du batch un process de synchro qui va envoyer un évnement au process qui a lancé le batch

etc ..