Executer plusieur commande

Signaler
Messages postés
73
Date d'inscription
mardi 3 avril 2007
Statut
Membre
Dernière intervention
12 mai 2013
-
Messages postés
9
Date d'inscription
jeudi 15 janvier 2009
Statut
Membre
Dernière intervention
5 mars 2009
-
Bonsoir a tous,

je cherche a faire executer a mon programme plusieur commande (automatiser)

donc voici la partie du code

procedure TForm1.btn_testClick(Sender: TObject);
 Var aCmdLine : PChar;
begin
aCmdLine := PChar(cmdSwitch + 'ipconfig');

alors je voudrais continuer en rajoutant
.........
aCmdLine := PChar(cmdSwitch + 'ipconfig');
aCmdLine := PChar(cmdSwitch + 'ipconfig/all'); //etc...

mais le probleme c'est que sa ne marche pas pourriez vous m'aidez s'il vous plait?

merci d'avance.

2 réponses

Messages postés
4202
Date d'inscription
samedi 16 octobre 2004
Statut
Modérateur
Dernière intervention
13 juin 2020
37
fait des recherche sur ShellExecute

<hr width="100%" size="2" />
Messages postés
9
Date d'inscription
jeudi 15 janvier 2009
Statut
Membre
Dernière intervention
5 mars 2009

g une qustion pour toi ! c qui ce CMDSWITCH ???
g une ideé un peut bètte :-)
untilise un variable string ;
par exmple :
s:=' /k ';
s:=s+'ipconfig';
s:=s+' && '+edit1.text; //pour ajouté un commmand !
shellexecute(handle,nil,'cmd',pchar(s),nil,1);
..........
.....
...
.
je ne sais pas si g ete tres clair et si ce que tu a besoin !