Comportement de Exec

Voilà deux codes

Code:

---

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

program test; uses dos,crt,windows; var prog,command:string; begin clrscr; writeln('tapez votre prog'); readln(prog); writeln('et la commande'); readln(command); swapvectors; exec(prog,command); swapvectors; readln; end.

---

Et le deuxième

Code:

---

1 2 3 4 5 6 7 8 9

program test; uses dos,crt,windows; begin swapvectors; exec(c:\command.com,dir); {ou même exec(command.com,dir)} swapvectors; readln; end.

---

Je ne vois aucune différence sauf que pour le premier les programmes appelés et la commande exécuter sont des variables que l'on saisit et avec ça ça marche, mais pour les deuxièmes NON !!!
Alors ma question : est-ce quelqu'un aurait la gentillesse de m'expliquer ceci, SVP, parce que là je craque ! J'ai vu sur le forum qu'il ne fallait pas poser de question sur EXEC car ça avait été expliqué plusieurs fois !

Mais les explications pour moi valaient qu'on repose la question, puisque ça marche pas !

Voilà, merci de m'expliquer. Je suis content, ça commence à rentrer @+

POUR INFO J'UTILISE FREE PASCAL

Le type des paramètres de la procédure exec est String... Dans ton second programme, tu utilises des trucs différents :? .Une string est déclarée entre quote :

Code:

---

1 2 3 4 5 6 7

var dir:string; begin ... exec( 'c:\command.com', dir); ... end;

---

Aussi ta variable dir ne représente rien pour le programme : elle n'est même pas déclarée et n'a aucune valeur. Si tu la déclares, il faudra que ca soit une string aussi.
Enuite, si tu veux utiliser une commande DOS, là je dis juste :

Code:

---

1 2	exec(GetEnv('COMSPEC'),'/C '+dir);

---

Si tu veux plus de renseignements, cherche sur le forum !
a+

Merci c cool !!!! j'y arrive presque !!!!

Remarque en passant : utiliser dans le même programme les unité Windows et Dos semble un peu stupide. Ce sont deux environnement à présent totalement séparés (depuis XP). Alors, il faut savoir choisir ;)

A+