ShellExecute batch Problem

Bonjour,

jessaye de demarer TomCat avec le code suivant:

Code:

---

1 2 3 4 5 6 7 8 9

procedure TForm1.btnClick(Sender: TObject); var tom: String ; begin tom := 'C:\tomcat\6.0.26\bin\tom.bat'; ShellExecute( self.Handle, 'open', PChar(tom), nil, nil, SW_SHOWDEFAULT );   end;

---

Mon probleme, cest que je voie la cmd.exe qui demare et qui se ferme rapidement sans demarer le serveur TomCat.

Merci pour vos Infos.

Soulman

SW_HIDE pour cacher le Bat

Sinon, comme on ne sait pas ce que contient ce Bat
Fonctionne-t-il hors de Delphi via un double clic ?

Ajoute un répertoire de démarrage, cela peut aider !

Sinon pourquoi ne pas lancer directement un exe ?
ShellExecute rend la main dès que le processus est lancé !

Bonjour,

si je fais un lien vers le tom.bat, un double click fonctione parfaitement :( .
TomCat est un conteneur de JSP/Servlet, il demare pas avec une exe.

Jai pas compris le repertoire de demarage !!

Merci

Citation:

---

Envoyé par Soulama

Jai pas compris le repertoire de demarage !!

---

Regarde les paramètres de ShellExecute.

Donc voila ce que jai compris:

Code:

---

ShellExecute(0,nil,'/C C:\tomcat\6.0.26\bin\tom.bat', nil, nil, sw_normal );

---

est ca na pas marché :(, enfin la dos box souvre et se ferme trop vite

est le code suivant ne marche aussi pas:

Code:

---

1 2 3

tom := 'C:\tomcat\6.0.26\bin\tom.bat'; ShellExecute( 0,nil, PChar( tom ), nil, PChar(ExtractFileDir( tom )), sw_normal );

---

je retire ce que jai dis dans mon dernier poste, sa vien de marcher, javais oublier un slash.

Merci pour la piste.

Soulman