Delphi无法执行.bat 批处理文件，请教高手！

[wym93519924]

我想用Delphi来做一个web安装程序，其中要在Delphi程序中启动Tomcat，但是死活执行不成功，界面一闪就没有了，bat文件绝对没有问题，天天打开。下面是语句，请高手指点：

WinExec(pchar('D:\jakarta-tomcat-5.0.18\bin\startup.bat'),sw_show);

ShellExecute(handle, PChar('open'), PChar('D:\jakarta-tomcat-5.0.18\bin\startup.bat'), nil, nil, SW_SHOWNORMAL);


以上两句都无法启动tomcat,屏幕一闪即过去了。

[ideation_shang]

tomcat 需要 CATALINA_HOME环境变量 必须设置启动位置
ShellExecute(handle,PChar('open'),PChar('D:\jakarta-tomcat-5.0.18\bin\startup.bat'),nil,PChar('D:\jakarta-tomcat-5.0.18\bin\'),SW_SHOWNORMAL);

[wym93519924]

万分感谢 ideation_shang 大虾，你真有才，一试就好了, 非常谢谢！

[Bear_hx]

楼上正解。

[lextm]

bat文件绝对没有问题
===========
很多人都喜欢说这个话，但是实际上编写bat文件的时候一般写的都是相对路径，对于执行路径是十分敏感的。

建议调试的时候在bat文件最后加上PAUSE，看看到底有没有报错的信息。

[storyxiao]

终于得到了正解！谢谢！

[storyxiao]

正解：
tomcat 需要 CATALINA_HOME环境变量 必须设置启动位置
ShellExecute(handle,PChar('open'),PChar('D:\jakarta-tomcat-5.0.18\bin\startup.bat'),nil,PChar('D:\jakarta-tomcat-5.0.18\bin\'),SW_SHOWNORMAL);