Bonjour à tous,

Je cherche à transformer ce code AutoIt en Code Dephi via MMB Plugin Builder mais sans aucun succès

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
$cmd       = CHR(34)& "ping.exe 10.0.0.123" &CHR(34)
;
Local $Stream = Run(@ComSpec & ' /c "' & $cmd & '"', @SystemDir, @SW_HIDE, $STDERR_CHILD + $STDIN_CHILD + $STDOUT_CHILD)
;
While 1
  $line = StdoutRead($Stream)
  If @error Then
    $SetStr = 'Done'
    ExitLoop
  Else
  If $line <> '' Then
    $SetStr = $line
  EndIf
EndIf
GetStr est ma ligne de commande ($cmd)
"ping.exe 10.0.0.123"

SetStr pour le retour du contenu de CMD ($Send)
Envoi d'une requête 'Ping' 10.0.0.123 avec 32 octets de données :
Délai d'attente de la demande dépassé. etc...

J'ai bien réussi à lancer le ping mais pour en récupérer le contenu comme AutoIt

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
begin
  ShellExecute(0, nil, 'cmd', PChar('/C "'+GetStr+'"'),nil,SW_SHOW);
  //ShellExecute(0,'Open',PChar('/C "'+GetStr+'"'),nil,nil,SW_SHOW);
  SetStr:='Done'; 
end;
J'ai bien cherché dans des tutos mais je nage complètement

Merci d'avance pour votre aide