shell13010
Messages postés73Date d'inscriptionmardi 3 avril 2007StatutMembreDernière intervention12 mai 2013
-
20 févr. 2009 à 02:40
cs_h4mz4
Messages postés9Date d'inscriptionjeudi 15 janvier 2009StatutMembreDernière intervention 5 mars 2009
-
5 mars 2009 à 15:04
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?
cs_h4mz4
Messages postés9Date d'inscriptionjeudi 15 janvier 2009StatutMembreDernière intervention 5 mars 2009 5 mars 2009 à 15:04
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 !