如题,如何在installshield 某个情况下能够执行.bat。
有例子较好。
有例子较好。
解决方案 »
- 好几年没用delphi了,以前用D7,现在大家都用哪个版本开发呀
- TServerSocket的多线程 长连接
- 怎样让DBGrid中只显示制定数目的记录数?
- 如何让这个声音只放一次??
- "发布"一个半成品的演示。同时有一个我认为有点难度的问题请教。当然,还要散分啦。
- 用batchmove对数据库导入表格数据出错!
- @@@@@好几个问题,我搞不定了,帮忙啊!@@@@@
- 返回動態數組的函數是什麼
- 如何在Edit,DBEdit控件中输入韩文?
- Delphi中怎样保存断点?家里用Access2000+ADO+delphi,到了学校机房还要手工配置吗(学校只有Access97).
- 如何遍历切换窗口
- 关于delphi和sql sever2000级联删除的问题
语法:
function Exec(const Filename, Params, WorkingDir: String; const ShowCmd: Integer; const Wait: TExecWait; var ResultCode: Integer): Boolean; 描述:
执行指定的可执行文件。使用 Wait 指定 InstExec 是否应该立即返回或等待,直到可执行文件终止或空闲。如果指定的文件已执行则返回 True,否则返回 False。如果返回 True 并且 Wait 是 WaitUntilTerminated,那么 ResultCode 返回执行的文件的退出代码。如果返回 False,那么 ResultCode 指定遇到的错误。使用 SysErrorMessage(ResultCode) 获取错误描述。注释:
TExecWait 定义为:TExecWait = (ewNoWait, ewWaitUntilTerminated, ewWaitUntilIdle); 如果你需要运行一个不是可执行文件或批处理文件,则用 ShellExec 函数替换。不要在文件名参数中包含引号,该函数将自动添加。
sMsg="Excute Configure file and SQL.";
SdShowMsg (sMsg, TRUE);
result = result + LaunchAppAndWait(INSTALLDIR^"Component\\config.bat","",LAAW_OPTION_WAIT|LAAW_OPTION_HIDDEN);
sCmdLine= sServerName+" \""+ sUserName+"\" \""+ sPWD+ "\"";
result = result + LaunchAppAndWait(INSTALLDIR^"Component\\setup2.bat",sCmdLine,LAAW_OPTION_WAIT|LAAW_OPTION_HIDDEN);
SdShowMsg (sMsg, FALSE);