SysexecNewpipe(); //创建管道
path:="D:\\TinySoftNG\\AnalyseNG.NET\\TSL.exe";
doS:=array('C:\\TinySoftNG\\AnalyseNG.NET\\tsl.exe','C:\\DoTSL\\otherTest\\TestEnv.tsl');
hand1:= SysExec(path,doS,nil,array('wait':false,'in':'d:="123"\r\n'),code);
r:=SysWaitForSingleObject(hand1,10*1000);//等待线程的状态
t:=SysexecReadpipe();//读取管道内容
return array(r,t);
返回:

其中,TestEnv.tsl文件的实现如下:
//当前sys的环境变量t:=Sysgetenvs();echo "sys: ",tostn(t),'\r\n';s:=Readln();//读取echo 'IN:',s,'\r\n';return 1;
SysExec、SysWaitForMultipleObjects