Discussion :

[leam69]

Bonjour,

Je cherche à lancer un batch windows2003 depuis delphi 7.0. J'ai repris les expication de la FAQ avec SellExectute mais ça ne lance pas le batch, et pas d'erreur !

http://www.developpez.com/delphi/faq...interexecution

1 - J'ai bien mis le shellAPI dans la clause uses
2 - DELPHI ne reconnait pas SW_SHOW, mais je peux le remplacer par 0
3 - Je peux lancer un .exe comme ça:

ShellExecute(0,'OPEN','C:\7-Zip\7zFM.exe', Nil, Nil, 0);

4 - Mais pas un batch, enfin pas comme ça:

ShellExecute(0,'OPEN','C:\batch.bat', Nil, Nil, SW_SHOW);

ShellExecute(0,'OPEN','C:\WINDOWS\system32\cmd.exe c:\batch.bat', Nil, Nil, SW_SHOW);

ShellExecute(0,'open',PChar(GetEnvironmentVariable('ComSpec')),
'/C c:\batch.bat,'c:\',0);

rien ne marche, alors si quelq'un peux m'aider merci bien !

[TicTacToe]

Je n'ai jamais lancé de batch avec shellexecute

Mais dans ton batch, s'il y a un lancement de programme, il est possible que le batch passe à la suite, se ferme sans attendre la fin de l'appli lancée, auquelle cas, pour peu que ce soit aussi une appli dos est fermée aussi prématurément.

Si c'est le cas, dans ton batch, essaye de placer un "CALL " devant le lancement de ton prog. il a pour effet d'attendre la fin du prog lancé, avant de passer à la suite des commandes.

Sinon bah... j'aurais essayé

[ero-sennin]

Salut,

J'ai testé la méhode ci dessous et ca marche :

Code :

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

ShellExecute(Application.Handle,'open',PChar(GetEnvironmentVariable('ComSpec')),'/C c:\bin\batch.bat','c:\',SW_SHOW);

Dans ton fichier Batch.bat, après avoir tout exécuté, met un pause. Comme ca, la console reste ouverte et tu peux voir les erreurs s'il y en a!

[leam69]

Ok, j'ai ajouté une pause dans mon batch, et s'il était lancé il me crérait un répertoire,donc je pourrais le voir.

Par contre delphi avec la méthode que tu as testé, mon delphi ne reconnait pas l'identificateur "Application.handle"(probablement car je code une dll ISAPI), donc je le remplace par "0", j'ai vu qu'on peux le faire dans la FAQ. Après c'est SW_SHOW qui n'est pas identifié, il ne le reconnait pas ! Je peux pas compiler, alors je lui donne un entier, 0 pour HIDDEN... ou 5 ( a priori == SH_SHOW) et il ça compile mais il ne se passe rien à l'execution.

[leam69]

ShellExecute(0,'open',PChar(GetEnvironmentVariable('ComSpec')),'/C c:\batch.bat','c:\',0);

[Cl@udius]

Salut

La constante SW_SHOW est définie dans l'unit Windows (SW_SHOW = 5).
L'objet TApplication est définie dans l'unit Forms.

@+

[ero-sennin]

C'est bizzard!

En utilisant exactement la même ligne de commande que la tienne c'est à dire :

Code :

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

 	ShellExecute(0,'open',PChar(GetEnvironmentVariable('ComSpec')),'/C c:\batch.bat','c:\',0);

Et en ayant dans mon fichier batch.bat (qui se trouve dans C:\) ceci :

Code :

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

md Truc

Il me crée bien mon dossier Truc à la racine du disque (C:\).
L'erreur vient-elle pas d'ailleurs?
Ton fichier batch par exemple?