Bonjour,
Dans un fichier .bat j'ai ça:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.