Discussion :

[fabiofabio]

Bonjour, bonjour,

La question est comment exécuter un programme externe d'extension "*.bat" en utilisant turbo pascal 5.5 sous windows XP?

En suivant le code suivant dans la FAQ :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
BEGIN
Uses Dos;
SwapVectors;
Exec('COMMAND.COM','');
writeln('DosError');
SwapVectors;
END

L'execution ne fonctionne pas et l'erreur que je récupère est la numéro "5" qui signifie que l'accès est refusé

Comment puis-je faire?

En vous remerciant d'avance

[M.Dlb]

Command.com n'existe pas sous windows XP. Tu peux récupérer le chemin complet à l'interpréteur de commande, en récupérant la variable d'envirronement COMSPEC. Pour récupérer cette variable, il faut regarder du côté de l'instruction getEnv, si je me souviens bien...

[fabiofabio]

En effet, dans la FAQ, il est dit qu'il faut utiliser "cmd.com" et non "command.com" pour windows xp.

Et même, en utilisant le chemin cela ne fonctionne pas.

Mon but est d'executer un fichier d'extension "*.bat" sous TP5.5 sous winXP ???

Encore merci

[M.Dlb]

Et si tu exécutes directement le fichier .bat sans passer par l'interpréteur de commandes ca ne marche pas ?

[fabiofabio]

Je n'ai bien compris la question mais si j'execute le ".bat" sous windows ou bien sous dos => cela fonctionne

[M.Dlb]

Et à partir de TP ? En passant le chemin du .bat à exec

[CapJack]

Premier problème : sous XP, l'interpréteur de commandes en ligne ne s'appelle effectivement pas COMMAND.COM, sauf si le fichier config.nt a été modifié en conséquence. Normalement c'est CMD.EXE, mais effectivement il vaut mieux utiliser GetEnv.

Deuxième problème : comme expliqué ici, le gros problème c'est le manque de mémoire conventionnelle (en dessous des 640Ko du DOS) pour faire tourner un processus externe. Il faut faire baisser la mémoire utilisée par le programme Pascal, et dans le cas de XP, la faire baisser drastiquement avec $M.

Troisième problème : toujours faire précéder une commande de la directive /C.

Ce qui nous donne le code suivant, qui fonctionne très bien chez moi (j'ai testé) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
program LancerBatch;
{$M 16384,0,100000}
 
uses dos,crt;
 
begin
 ClrScr;
 SwapVectors;
 Exec(GetEnv('COMSPEC'),'/C TEST.BAT');
 SwapVectors;
 Writeln(DosError);
 readln
end.

[fabiofabio]

Et bien, merci infiniment mister CapJack,

ceci fonctionne !

Sauf qu'à la place de test.bat j'ai mis le chemin du fichier bat et c'est ok.

Et bien, rien à dire et encore merci

[M.Dlb]

Ah oui c'était dans la FAQ