batch impossible à lancer

Version imprimable

06/11/2006, 17h20
leam69

batch impossible à lancer

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 !
06/11/2006, 17h37
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é ;)
06/11/2006, 17h48
ero-sennin

Salut,

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

Code:

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! ;)
06/11/2006, 18h12
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.
06/11/2006, 18h14
leam69

ShellExecute(0,'open',PChar(GetEnvironmentVariable('ComSpec')),'/C c:\batch.bat','c:\',0);
06/11/2006, 18h18
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.

@+
06/11/2006, 18h36
ero-sennin

C'est bizzard!

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

Code:

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:

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?:roll:
07/11/2006, 11h20
leam69

Effectivement, il est possible de faire comme ça depuis une application,ça marche aussi chez moi (ouf !)

Par contre mon code est dans une dll ISAPI et là il ne se passe rien, je peux lancer un executable depuis la dll, mais pas un batch, et toujours pas d'erreur remontée !
07/11/2006, 11h34
pinson

essaye avec CreateProcess

tien un exemple avec un exe console, focntionnement idem que pour un batch :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
var
  FProcessInfo : TProcessInformation; // Process exécutant la commande
 
function Lancer(aExe : String) : boolean;
var
  StartupInfo:TStartupInfo;
begin
  FillChar(StartupInfo,Sizeof(StartupInfo),#0);
  StartupInfo.cb := Sizeof(StartupInfo);
  StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
 
  //Lancer le process si pas encore lancé
  if FProcessInfo.hProcess = 0 then
    Result := CreateProcess(nil, PChar(aExe), nil,nil,True,0, nil,nil, StartupInfo, FProcessInfo)
  else
    Result := True;
end;
 
function Arreter : boolean; //si tu as besoin de tuer ton lancement.
begin
  Result := TerminateProcess(FProcessInfo.hProcess,99);
end;

07/11/2006, 12h44
leam69

J'essaierais bien cette méthode mais "TProcessInformation" il ne connait pas. Je n'ai absolument dans l'aide non plus, est-ce que tu sais dans quelle librairie ou quel composant il se trouve ?
07/11/2006, 13h29
pinson

Regarde dans Windows, je pense que c'est dedans car c'est une structure Windows.